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PREFACE 


This User Guide is submitted to the National Aeronautics and Space 
Administration's George C. Marshall Space Flight Center, Huntsville, 
Alabama, in response to the contract provisions of deliverable items 
associated with Structural Dynamics Payload Loads Estimates, Contract 
Number NAS8-33556. 

The study took place during the period from August 1979 to October 
1982 under the direction of Mr. U. Holland of MSFC, Huntsville, Alabama. 

During this three year period the following documents were produced: 

1. Methodology Assessment Report 
August 1980, MCR-80-553 

2. Methodology Development Report 
August 1981, MCR-81-602 

3. Final Report 

September 1982, MCR-82-601 

4. User Guide 

September 1982, MCR-82-602 

5. Monthly Progress Reports 


The Final Report together wltn the User Guide are intended to be 
largely self contained. Chapter I of the User Guide deals with an 
overview of an Integration Scheme to Determine the Response of a Launch 
Vehicle with Multiple Payloads. Chapter II discusses the software 
package associated with the Integration Scheme together with several 
sample problems. We also discuss the short-cut version of the above 
mentioned Integration technique. This User Guide concludes with a list 
of references and the listings of the subroutines. 

The author wishes to thank D. Devers, H. Harcrow and G. Morosow for 
their constructive comments and for reviewing parts of the manuscript. 
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CHAPTER I: 


An Integration Scheme to Determine the Response of a Launch 
Vehicle with Multiple Payloads. 


1. INTRODUCTION 


In Chapter Illof Structural Dynamics Payload Loads Estimates, Final 
Report, June 1982, we discussed in detail a direct nuswrical integration 
scheme to determine the response of a launch vehicle with several 
payloads. The objective of this chapter is to briefly review the 
derivation of this integration scheme. This will help us to understand 
the development of the software package, to be discussed in Chapter II. 
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2. THE EQUATIONS OF MOTION 
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The objective of this section is the derivation of the equations of 
notion of the launch vehicle/payload(s) system. Figure 1 shows the free 
body diagraas of the booster B and the payloads PI and P2. The booster 
and the payloads are connected to each other through the interface. He 
also consider superfluous interface coordinates. Indeed, often the 
booster interface contains sore degrees of freedom than is necessary to 
attach the payloads. The reason for this is that the booster 
organization provides a set of interface restrained booster modes which 
can be used to accommodate many different payload configurations. It 
would be probibitive to recalculate a set of cantilevered launch vehicle 
modes every time the interface with the payloads changes. 

From the free body diagrams in Figure 1 we can easily write the 
uncoupled equations of action for the booster B and the payloads PI and 
P2. 
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Several well known procedures exist to couple the above three 
equations^. The objective is to eliminate the redundant interface 
displacements and in the process also the unknown reaction vectors. One 
such technique uses so-called'"cantilevered" booster and payload 
displacements^. To set the stage, let us note that we can partition 
the vectors , £ XpiJ. , {Xp2} > » { *B$ etc * a8 follow®: 
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( 2 ) 



Similar partitions can be written for the velocities and the 
accelerations. In the above equations we assumed that the external 
forces only act at the non-interface booster degrees of freedom. This 
assumption is only made for convenience. Also it should be noted that 
this development is not limited to two payloads. 



Figure 3 Free-Body Diagrams of Booster B 
payloads PI and P2 
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Next, it is easy to show that { | 

and can be written as follows: 

• l*? 1 ! ■ 

OF POOR QUALITY 

1*51 ■ - «.] - 1 
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Using Equations (3) and 

the fact that 
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we can form the following transformation. 
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NOTE: 


(P2xNP2) 


IF « IF1 + I?2 ♦ IFS 
B - NB + IF 
PI - NP1 + IFI 
P2 - NP2 + NP2 


also, the zero matrices 0^ 0 y Oy 0 4> 0 5> 0 6 , 0 ? , 0 g , 0 9> 0 1Q , 

^11* ^12’ ^13* an< * ^14 ^ ave dimensions BxNPl, BxNP2, NPlxIF2, NPlxIFS, 

PlxNB, PlxNP2, IFlxIF2, IFlxIFS, NP2xIFl, NP2xIFS, P2xNB, P2xNPl, 
IF2xIFl and IF2xIF2 respectively. 

Taking into account that the reactions between interfaces are equal 
but opposite we can substitute transformation (5) into Equation (1) and 
then pre-multiply by the transpose of the transformation matrix. This 
will eliminate the redundant interface displacement vectors as well as 
the reaction vectors. The resulting equations are the coupled discrete 
equations of motion and can be written as: 
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Next, we can introduce the interface restrained modes, i.e. 
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These modes can be truncated according to a predetermined cut-off 
frequency, thereby reducing the size of Equation (7). Also, we can solve 
the interface eigenvalue problem for [Mjt] and [K^j] , to get the 
interface modes f"fj] and frequencies Substituting Equations 

(9) into equations (7) and introducing the interface modes we obtain: 
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Note that we introduced modal damping. Although the booster and the 
payload modes can be truncated, it is imperative not to truncate any 
interface definition. This is of special significance when the interface 
modes are introduced. The motivation for this will be explained later. 
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3. THE NUMERICAL INTEGRATION SCHEME 

A common approach Co Che solucion of EquaCion (10) is Co decouple 
these equations by solving an undamped eigenvalue problem for the set of 
system equations. In order to avoid this rather costly eigenvalue 
problem we shall attempt to directly numerically integrate Equation (10). 
The special structure of Equation (10) may lead to a very economical 
solution* Indeed, the only time consuming operations involve the 
matrices [Bj and £p} . However, both those matrices have row 

dimensions equal to IF which i mally is relatively small. 

As indicated in reference 3, the Newmark-Chan-Beta numerical scheme 
is very well suited to solve this problem* Not only can it take complete 
advantage of the special structure of Equation (10) t t it also allows us 
to track the highest frequency in the applied force instead of the 
highest frequency in the system without becoming numerically unstable. 

The basic equations can be written as follows: 
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°6 * 2 T? + h ^P 
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Furthermore, if we premult i l .y Equation (11) by 
[-BD' 1 | I | -PD^J , we obtain 
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Once the acceleration at time i+1 is known, we can find the 
corresponding velocity and displacement vectors from, 


(l-l')hfq.} + TM.q i+1 } 


W + ll " i a -i\ + h i q i$ + (O.5-£)h 2 £qJ+0h 2 {q. +1 j. 


It should be noted that matrix A 2 t) r example, contains sero partitions 
of which advantage can be taken* Also, the usual triangular 
decomposition necessary to sol j Equation (11) can be replaced by the 
inversion of an IF x IF matrix in Equation (15). The final recursive 
relations then, are given by Esua tions (12) , (14), (16), and (17). 
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4. THE LOAD TRANSFORMATION 

Hruda and Jones ^ , introduced a load transformation which is 
consistent with modal synthesis techniques. In reference 3 we adapted 
this technique to the case of the direct integration schesm. When more 
than one payload is considered and when there are superfluous interface 
coordinates, the load transformations are derived in a similar manner. 
The pertinent equations can be presented as follows: 

{L l - [k V 1 { x l (18) 

j j Pj i 

which is the load equation for an elementary member or a set of these 
members. Note that such a member could be part of any payload. For 
example, if the member belongs to payload PI then £xpj£ * { x Pl£ * 

Furthermore, if the acceleration approach is used, we can write the 
load vector as, 
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It should be pointed out that it can be shown that if we keep all 
interface modes that {xtj£ in Equation (19) can be used directly and 
need not be written in terms of accelerations and applied forces. Also, 
observe that the payload organization can easily save the matrices ty5]j 
[<T]j and [£]j» so that any member in the payload can now be 
investigated without recalculating these matrices. In addition, no 
system eigenvalues and eigenvector are involved. 
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5. THE SHORT-COT VERSION 


In Chapter III of the Final Report we developed a short-cut 
version of the previously derived full-scale numerical Integration 
scheme. In this section we wish to review the basic results in support 
of the develpment of the software package. The approach is based on 
estimating the size of the feedback from the payload response into the 
booster. First, we shall derive the so-called coupled base motion equations 
for the system. These equations still represent a set of accurate full-scale 
equations of motion. One possible approach Is to completely neglect the 
feedback of the payload into the booster. This leads to a technique known 
as the direct base drive or open loop technique as discussed in Chapter I 
section A3f and B3 of the Final Report. 

In many cases this technique leads to acceptable results. Instead 
of completely neglecting the feedback, we shall subject the magnitude of this 
feedback to a criterion. The result will be a method which, depending on the 
structure at hand, will vasllate between a full-up coupled base motion 
technique and a direct base drive method. 

First, note that the equations of motion for the coupled base motion 
technique are derived in Chapter I A3.f. in the Final Report. Following that 
derivation we can start by writing down the coupled set of equations of 
motion as given by Equation (iO) cf this User Guide : 
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Following the philosophy of a base tsotion technique we first solve 
the following set of equations, 
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This set of equations represent the equations of motion for the 
booster without payload(s). Note that one could also load the booster 
with a standard payload which would represent a kind of average payload. 

The solution of Equation (24) is the same for all payload 
configurations and does not change as long as the forcing function and 
the booster model do not change. A modified Newmark-Chan-Beta numerical 
irtegration scheme can be used to obtain the solution of (24): 
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The equations to use then are Equations (25 , 27 , 29 , 30 ). 
quantities to save are {xjoj- , £xjof end (xjqJ. 
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Returning Co Equation (22) we can vricc: 
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The residual quandcies i qjjoj and [xikj are clearly due Co Che 
presence of Che payload(s), i.e. chey are che feedback of Che payload(s) 
back inCo che booscer. Lee us vrice che following veccor equacion. 



SubsdCuCing Equacion (31 ) inCo Equacion ( 22) and taking into 
account Equations (23 -24 ) leads to che coupled base notion equations. 
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This sec of Equations (33) could be solved resulting in a full-scale 
accurate solution. However, physically it is possible that the feedback 
vector is small (note chat we need not have and 

( X Ir£ small), i.e. 0 for all times t. Then from the third 

partition of Equation (33) we obtain a decoupled equation for £q£f , 
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- »*A 4 

which can be easily solved, because \ *joT i* known. This approach is 
called Che direcC base drive technique and has been used successfully. 

The problem however is that the magnitude of { *irj is not known 
in advance and may not always be small* In that case, Equation (33 ) 
should be solved retaining the coupling terms* Again, a Newmark-Chan- 
Beta technique can be used as follows, 
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At this point, it is possible to introduce a criterion which checks 

the magnitude of say Jx 

certain preset £ then the quantities A„ * x“ ,r and A, $x,_. , f 
r n 2 *• IRi+1- 5 3 c IRi+lJ 

in Equations ( 39 ) are not calculated. A possible criterion could be 
of the following form : 


j- . If this magnitude is smaller than a 



( 42 ) 


where £ is a preset percentage (e.g. 0.01). 
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This criterion could partially avoid the preuult iplications by 
and XE in Equation (39). There are two more cost generating 
premultiplications by A 2 and A 3 in Equation (3©). These could 
possibly also be avoided when the feedback acceleration is small. This 
would mean a direct base drive at that particular time step. Both these 
approaches were implemented and will be discussed in the next chapter. 

The main problem with this kind of approaches is to find an answer to 
the question: Vhat constitutes a small feedback? This question is still 

not answered even with an equation like Equation (-4-2). Even though 
encouraging results were obtained, it is recognized chat additional 
research and development is necessary. 
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CHAPTER II: The Software - Description and User Guide 


1. INTRODUCTION 

In this chepter we shell discuss the software package associated with 
a complete booster/payload response aod leads analysis. An attempt will 
be made to clearly link the theory of Chapter I with the specific program 
and subroutine descriptions. This will give us the opportunity to touch 
upon some of the constraints and difficulties invariably associated with 
the development of a practical payload integration software package. 

Some factors co consider are: computer core usage; convergence; 

available data; the separation of booster, payload and integration 
organisations; work schedules; engineering time; ease of program usage; 
computer cost and related efficiency of algorithms; reuse of existing 
information; required accuracy versus cost; handling of potentially large 
models; etc. 

In Section 2 of this chapter we shall present a general description 
of the organization and components of the software package. In 
particular, we shall explain the purpose and contents of the components 
and how they relate to each other. Then, in Section 3 a more detailed 
description of each of the components will be presented. This will 
include flow diagrams, description of input and output, how the programs 
are composed and how they must be used. 

Section 4 describes two examples of booster/payload(s) systems. The 
first is a sample problem which was used to check out the subroutines. 
This will give us an opportunity to show how the six programs must be 
used. The other example is the more realistic case of the STS-ST-OMS-Kit 
Structure. We will also discuss the results of the short-cut approach. 

Section S represents a selected reference list. Finally, Section 6 
contains listings and samples of input and output for the several 
programs and subroutines. 
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2. GENERAL DESCRIPTION OF SOFTWARE PACKAGE 


In this section we shell discuss in general terms the composition of 
the payload integration package and relate the several components to the 
theory in Chapter I. 

Due to computer storage limitations, all programs in the software package 
were written using FORMA partition-logic subroutines. The 
partition-logic subroutines eliminate large storage requirements by using 
a random access (direct access) mass storage device which only brings a 
section of a large matrix into storage at one time. However, this 
process involves much bookkeeping and reading and writing of intermediate 
answers to the random access file. These processes make a partition- 
logic subroutine much slower and costlier than a dense-logic subroutine 
that does the same function. Thus, the use of partition-logic 
subroutines involves a trade-off between storage Acquirements and 
computation time. In order to make the payload Integra tionprograms as 
efficient as possiblewithregard to these two parameters it was decided 
to combine the use of dense and partition-logic. Thus, for our purposes 
diagonal matrices and column vectors are stored as dense-logic column 
vectors and all other matrices are stored in partition-logic. Also, to 
take advantage of this storage method several hybrid dense-logic/ 
partition-logic subroutines were developed. The functions of these 
subroutines are described in their respective subroutine listings in 
Section 6 of this chapter* 

The software package consists of six major programs and the 
supporting subroutines* The six programs are: BOOSTER, PAYLOAD, 

INTFACE, FORCE, RES PONS, LOADS. 

These programs are designed to be as independent as possible. Thus, the 
program BOOSTER contains parameters that only involve the booster/launch 
vehicle and requires no prior knowledge of the payload configuration. 

Likewise, program PAYLOAD only requires knowledge of payload parameters. 

This way the booster and payload organizations can work conpletely independent 
of each other. 

Program INTFACE does the actual model coupling between 
booster and payloads. However, these results are independent of time and 
thus, program INTFACE need only be run once for each payload/booster 
configuration. The remaining programs are time dependent and must be run 
separately for each load case and test configuration. 

The BOOSTER program essentially calculates all the quantities related 
to the booster only, i.e., 


T B M B I ^N > T B* ^B M B T B f and WB 


These quantities are needed in the solution of Equation (10). A flow 
diagram of th; main program BOOSTER can be seen in Figure 2 Subroutine 
ZBOOST performs the actual computations of the above quantities as we 
shall discuss in the next section. 
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FIGURE 2: PLOW DIAGRAM FOR PROGRAM BOOSTER 
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Similarly, program PAYLOAD computes all payload quantities needed for the 
solution of Equation (10). In addition it calculates also quantities 
needed for the loads calculations in Equations (19-21), i.e., 

T pj’ T pj"pj T pj 


r ?/pj r pj ■ B pj • *” d 

Figure 3 represe a flow diagram of program PAYLOAD. Again, the actual 
calculation of the above quantities is done in subroutine ZPAYL to be 
discussed in next section. Note that subroutine payload is run 
separately for each payload. 
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Program INTFACE essentially combines booster and payload quantities 
to produce the necessary interface quantities and to synthesize the total 
payload quantities. Referring to Equation (8) in Chapter I, the 
interface mass and stiffness matrices, Mj j and Rjx » are formed and 
the interface eigenvalue problem for t|iese quantities are solved 
resulting in the interface modes, 4 * 1 * and frequencies, Program 

INTFACE also collects similar quantities for the several payloads into an 
overall paylq^d quantity. Referring to Equation (10) these quantities 
are P, and Sp. The actual calculations are done in subroutine ZINTF. 
Program INTFACE requires input from both the booster organization and ail 
payload organizations. This is where the different organizations will 
have to interact with each other and therefore a great amount of 
coordination is often required. A flow diagram of program INTFACE is 
presented in Figure 4. Note that programs BOOSTER, PAYLOAD and INTFACE 
are one-time programs in the sense that the output of these programs is 
not dependent on time. Therefore, they represent a one-time cost in the 
course of a load cycle. The purpose of these three programs together 
with program FORCE is to produce the necessary INPUT quantities for 
programs RESPONSE and LOADS. 

Program FORCE generates the necessary force time histories -£Fg£ on 
the righthand side of Equation (7)* It uses a linear interpolation 
scheme to obtain the correct force amplitudes at the right integration 
times used in program RESPONS. Note that the form of the force term in 
Equation (7) involves only the force vectors and booster properties, 
therefore, it need only be run once for any given booster and force/time 
history. A flow chart of program FORCE can be seen in Figure 5. Also, 
the actual calculations are performed by subroutine ZFORCE. 
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FIGURE 4: FLOW DIAGRAM FOR PROGRAM INTFACE 
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FIGURE 5: FLOW DIAGRAM FOR PROGRAM FORCE 
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Prograa RESPONS generates the rtiponu of the coupled booster/ 
payload(s) systea using tha diract intagradon tachniqua daacribad by 
Squat iona (11-17) in Chaptar I. A flow diagraa of thia prograa ia 
praaantad in Figure 6. Subroutine ZRESP coaputaa the actual tranaiant 
raaponaa history. 

Finally, prograa LOADS accepts tha ayataa raaponaa froa prograa 
RESPONSE and generates tha payload loads and other additional quantities 
if necessary (stresses, strains, aaxiaua and ainiaua loads, etc.). The 
LOADS prograa uses tha "acceleration" approach as opposed to tha sv 
called "displacaaant" approach. A flow diagraa of prograa LOADS is shown 
in Figure 7. Z LOADS is the subroutine u.iich produces the desired 
quant it ies . 

The six prograas as described above fora a complete booster/ 
payload(s) integration software package which allows for a reasonable 
amount of flexibility. An atteapt was '~t ft to generate a reasonably 
general and flexible software package which is still relatively siaple to 
use. Again, it should be noted that all prograas are written in 
partition-logic and aake use of both the Part it i n and Dense Logic 
Subroutine Libraries as developed by Martin Marietta Aerospace. Sosa of 
these subroutines were adapted to this effort and will be listed as 
such. Also, a few new basic subroutines were develooed and will be 
discussed later. 
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3, DETAILED DESCRIPTION OF SOFTWARE PACKAGE, 


In this section we shall present the six programs which together with 
the FORMA subroutine library constitute a complete booster/payload 
integration software package. In particular, we aha 1 ! discuss the 
contents and usage of each of the components and point out the 
relationships with the theory as described in Chapter I. 

a. Program BOOSTER 

As mentioned in section 2, program BOOSTER generates all booster 
data necessary to run program INTFACE and eventually program RESPONS. 
Program BOOSTER starts out by calling subroutine START which performs a 
number of monitoring functions. For example, subroutine START reads the 
first three input ctrds of the input deck; interrogates the computer for 
the time of day, central processor time; defines a few common blocks; 
stops tht program when IRUNNO “ STOP, etc. Note that every subroutine in 
the FORMA library contains a number of coimnent cards explaining in detail 
the purpose and functions of the subroutine. Therefore, for a detailed 
description of subroutine START and any subsequent FORMA subroutine used 
in this text we refer the reader to the FORMA subroutine manuals (Volume 
3A-LISTINGS, DENSE FORMA SUBROUTINES). Next, program BOOSTER calls 
subroutine TIMCHK (see Volume 3A) which determines the elapsed CP and PP 
time between defined points in a program. Finally, program BOOSTER calls 
the new subroutine ZBOOST which performs the actual computations 
necessary to generate all booster data. Figure 8 represents a flow chart 
of subroutine ZBOOST. 


Subroutine ZBOOST was written in part ion-logic and allows for a 
reasonable degree of flexibility. The final objective is to produce the 
following quantities which are necessary for later calculations: 


PHINBR * the expanded truncated set of cantilevered booster 

modes where rows corresponding to zero applied forces 
are deleted. 


FREQBT * truncated cantilevered booster frequencies (* fg) 

TBR ■ the constraint modal matrix with interface dofs. 

included and where columns corresponding to zero 
applied forces are deleted. (* Tg) 

BM2 * booster mass matrix reduced to the interface 

(- TgMjjT B ) 

BK2 * booster stiffness matrix reduced to the interface 
(- t£k b T b ) 

BM1 ■ booster coupling mass matrix between interface and 
n^n-interface dofs. 
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The first step of subroutine ZBOOST as shown in fig. 8 is to read a 
set of input parameters describing what information is available to the 
subroutine. These input paraaeters are as follows: 

IF - Number of interface dofs. 

NB - Number of truncated booster aodes and frequencies that are 
to be retained* 

MD - Number of discrete booster dofs, (i.e. the size of the 
discrete booster mass matrix. Mg). 

NF* Number of non-zero force components in Fg. 

NtfFILE - Logical file number to which the output is written (for 
example NWFILE -11). 

NWRKFL - Logical file number of a partition-logic work file (for 
example NWRKFL - 1 ). 

NWRITE - Flag parameter. If NWRITE - 0, the results are not printed 
on paper. If NWRITE - 1, the results are printed on paper. 

NEXP - Flag parameter. If NEXP ■ 0, the cantilevered booster 
modes are not expanded to include interface dofs . If 
NEXP - 1, the modes are expanded, (i.e. Ig^fi is 
available) 

NTB - Flag parameter. If NTB - 0, the booster interface 

reduction transformation Tg is not available, and must be 
calculated. If NTB - 1, Tg is available. 

NBMK12 - Flag parameter. If NBMK12 - 0 the quantities 

mo - 
BM2 " 

and , BK2 « 'g 7 Kg 

are not available and if NBMK12 - 1, all these quantities 
are available. 

NDET - Flag parameter. NDET - 0 then the interface is 
indeterminate, and if NDET - 1, the interface is 
determinate (i.e. BK2 - 0). 

The next function of subroutine ZBOOST is to generate the expanded 
truncated cantilevered booster modes, PHINBR. The user must input the 
cantilevered modes and the flag, NEXP tells whether or not the 
cantilevered modes have been expanded to include the interface degrees of 
freedom (dofs). If the modes are not expanded, an integer vector, IFACE, 
is defined which locates the interface dofs. in the booster, which is 
then used to execute the expansion. Many times more modes are calculated 
than are necessary for the accurate determination of the response. 

Therefore, the user must input the flag, NB, informing the program how 
many modes should be retained. The purpose of this feature is to 
truncate higher frequencies above the so-called cut-off frequency, 
thereby, reducing the size of the equations to be solved without loss of 
much accuracy in the re ^onse and loads calculations. Subroutine ZBOOST 
contains a mechanism to truncate both the modes and frequencies according 
to the desired cut-off frequency. Next, in order to reduce the size of later 
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Figure 8, Flow chart of subroutine ZBOOST 
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multiplication* in the forcing tern of Eq. (10), rows of PHINB that 
correspond to non-forced degrees of freedom are eliminated. In order to 
accomplish this function, an integer vector, NFORCE, describing the 
locations of forced degrees of freedom is input, and 1 reduction is 
performed resulting in the final quantity PHINBR. 

Subroutine Z BOOST then computes TBR, BM1, BM2 and BK2 as needed. The 
flag, NTB, tells whether or not Tg is given. If Tg is not given 
(NTB ■ 0) then it is assumed that BM1, BM2 and BK2 are also not jiven, 
and we must calculate all four of these quantities. To calculate these 
quantities we need the free mass and stiffness of the booster and the 
locations of the interface dof locations. These quantities arc BN, BK 
and the IFACE vector which may have been read in when forming PHINBR. 
Subroutine ZBOOST calculates Tg, then perfv the correct triple 
products to form BM1, BM2 and BK2. 

If Tg is given (NTB “ 1), then subroutine ZBOOST checks the flag 
NBMK12. When NBMK12 - 1, the quantities BM1, BM2 and BK2 are assumed to 
be given and are therefore read into the program. If NBMK12 » 0, then BN 
and BK are input and these quantities are formed by their respective 
triple products. 

Once again we can note from Eq. (10) that we can eliminate many 
needless multiplications in the force term if we delete the rows of Tg 
which correspond to dofs with no forces applied. Therefore, we use the 
vector NFORCE to form TBR which contains only the forced rows of Tg. 

Finally, FREQB, a vector of the cantilevered booster frequencies is 
input and truncated to the NB frequencies below the cut-off frequency. 

The new vector is FREQBT. Subroutine ZBOOST is then snded by writing the 
quantities, PHINBR, FREQBT, TBR, BM1, BM2 aii BK2 out on the tape, 

NtfFILE, and on request (i.e. NWRITE ■ 1) writes them on paper. 

It should be pointed out that subroutine ZBOOST has maximum 
capabilities of 200 interface dofs and 700 booster dofs. These limits 
omy be changed by increasing the corresponding values in the DATA and 
DIhENSION statements of the subroutine. 

It could be argued that the vector 2C.^?*could also be calculated 
in subroutine ZBOOST because this quantity depend,* on the booster only. 
However, this is done in program RESPONS because 3Tg could be subject to 
trial and error. This way we avoid a rerun of program BOOSTER for each 
case. Similarly, we calculate the forcing function terms IgFg 

and TgFg in e separate program because there could be several 
different force profiles. 

Subroutine ZBOOST does not have any subroutine arguMnts. Therefore, 
all infonaation given to the program is given in the data deck. The 
specific structure and fonaat is given in the docuMntation to program 
BOOSTER and must be followed exactly as given. 
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b. Program PAYLOAD 


Program PAYLOAD generates all payload data necessary to run 
program INTFACE, program RESPONS and program LOADS. Program PAYLOAD is 
largely identical to program BOOSTER except for the calculation of 
quantities related to the load transformations. Subroutine ZPAYL 
generates the following DATA: 

FREQPT ' Truncated cantilevered payload frequency vector. 

(* fp) 

TP * The payload constraint modal matrix (* Tp) 

PK2 ■ The payload stiffness matrix reduced to the interface 
(- I^KpTp) 


PM2 * The payload mass matrix reduced to the interface 
(■ TpMpTp) 

PMl * The payload coupling mass matrix Detween interface and 
non-interface degrees of freedom 

(* TpMp 

PL1 * A load transformation (■ IpEpipMpIji^fj) 

PL2 * A load transformation (■ IpEpI^MpTp ) 


Note that we assume that no external forces are applied at the 
payload degrees of freedom. Therefore, PHINPR and TPR need not be 
calculated. However, because we are eventually interested in payload 
loads, we do need to generate the load transformations PLi and PL2, in 
addition to Tp, according the Eqs. (18-21). Looking at Figure 9 we 
note that the quantities FREyrT, TP, PK1, PM2 and PMl are calculated in 
the same way ~s are their counterparts in subroutine ZBOOST. The 
calculation of PLI and PL2 does not present any unusual problem. 
Subroutines such as ZZERO, ZSLADR, Z TRANS, ZINV3 and ZMULT (Volume 3B) 
are used to accomplish this task. We also introduced two additional FLAG 
PARAMETERS: NEP (■ 0 J EP is not available, ■ 1 ; EP is available); and 

NLOAD (0 * y the load transformations PLI and PL2 are not available, ■ l y 
these transformations are available). 

Again, subroutine ZPAYL dots not require any subroutine arguments. 

The documentation in program PAYT.OAD describes how the input quantities 
must be ordered in the input list. 
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c. 


Program INTFACE 


Program INTFACE generates all interface quantities necessary to 
run program RESPONS. Also, it assembles qc&ntil:ies related to different 
payloads. Interface quantities involve both booster and payload data. 

In particular, program INTFACE calculates: 

BPM2 


BPK2 


B2 


FREQPI 


FREQPA 


PHIlft 

P2 


Subroutine ZINTF starts by leading ^ o* input parameters. 

These are as follows: 

NPAY * Number of payloads to be coupled togetner 

NWFILE * Logical file number to which the output is written 

(i v r example NWFILE * 11) 

NWRjCFL ■ Logical unit number of a required partition-logic work 
file (for example, NWRKFL * 10) 

NWRITE ■ Flag parameter. If NWRITZ ■ 0, the results will not 
be written on paper. If NWRITE * 1, the results will 
be written on paper. 

IFB * Number of booster interface dofs. (including 
superfluous dofs.) 

NPTOT ■ Total number of payload degrees of freedom 


■ The sum of the interface reduced booster and payload 
mass matrices (■ Mjj) 

* The sum of the interface reduced booster and oaylocd 
stiffness matrices (* Kjj) 


* B , booster coupling mass matrix between 
interface and non-interface dofs. premultiplied by the 
transpose of the interface modes. 

* The interface frequencies (* These include the 
rigid body frequencies 

* The as8emblea payload frequency vector for all 
payloads (- f p - { f pl , f p2 , •••, f pa }> 

■ The interface modes (-4?) 

■ 4^ P, the assembled payload coupling mass uiatrii 
as displayed in Eq. O0) or emu It ip lied by the 
transpose of the interface modes r 
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Next, the booster properties - BM1, BM2 and BK2 in input. BN2 and 
BK2 must bn eoupiad wich payload quantities to form tho interface mm 
and stiffness. Therefore , we now naad to raad in tha proportion of oach 
of tho payloado. These proportion aro Ml, M2, FK2 and FREQFT. Vo aiao 
nood othor doacriptivo information about tho payloada ao that thoy aro 
handlod corroctly. Ihoroforo, wo must input parameters IFF, indicating 
how atony dofa aro in tho payload intorfaco, NP which to 11a how many 
payload modes woro rotainod for thia particular payload, and IFACSP which 
ia a vector indicating which booator intorfaco dofa corroapond to which 
payload intorfaco dofa, 

Uaing IFACSP, M2 ia addod to BM2 to for* tho intorfaco aaaa matrix 
BM2. Likewise, PR2 is added to BK2 to form tho intorfaco atiffnaaa 
matrix BPK2. Alao, Ml ia aaaomblad into tho total payload intorfaco/ 
non-interface coupling matrix, P, and a total payload frequency matrix, 
FREQPA, ia aaaomblad from FREQFT. Thia atop ia ropoatod for all payloada. 

Tho intorfaco eigenvalue problem ia than aolved and tho intorfaco 
modoa PHIIB and frequencies, FRBQ1 aro foramd. Note that wo aolve for 
all the modoa. TO got thoao properties in thoir final forma, P and BN1 
are premultipliod by (PHIIB)T to got P2 and B2, reapect ively. Note that 
those properties aro called P and B in Sq. (10). 

To complete thia program, all those quaAtities are written to tho 
specified file, NWFILS, and on option, (NWRITK ■ 1) thoy aro also written 
on paper. 

Once again subroutine 21NTF has no subroutine arguments. All 
information given to tho subroutine ia in a data dock. Tho correct form 
of the data deck is given in the program documentation. 

d. Program FORCE 

Program FORCE generates the forcing function data in a form 
consistent with the requirements of program RESPONS. Aa atated earlier, 
it calculates the right-hand aide of Eq. (7). Note tht those forcing 
terms contain only booster properties, ao that this program need only be 
run once for each booster and force/tima history. We have purposely 
waite^. until program RESPONS to premultiply the interface forcing term 
by$>® as required by Eq. (10) for thia reason. Subroutine ZFORCE does 
the Actual calculation and generates a sequential file containing a 
header and the interpolated time-force data. A flow chart of subroutine 
ZFORCE is given in Figure 11, 

Subroutine ZFORCE begins by reading the following set of input 

parameters : 

DELTAT • The time step siae used in the numerical integration 
scheme used to solve the response equation • 
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Figure 11. Flow chart of subroutine ZFORCE 
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ENDT ■ The end tine for the interpolation time range 
IF * The number of interface degrees of freedom 

IFTERP * 0 The force data has not been previously 

interpolated 

1 The force data has been interpolated 

NB * The number of non-interface booster degrees of freedom 

NF * The number of non-zero force components acting on the 
boost ei* 

NFORFL ■ Logical unit number of the output sequential file 
containing the time /force history 

NWRITE * 0 Output time/force history should not be written 
on paper 

* n Output is written on paper every n time points 

NWRKFL * Logical unit number of a required partition-logic work 
file 

STARTT * The beginning time for the interpolation time* range 

The only other input information needed are the partition-logic matrices 
TIME and FORCE which completely describe the response forcing function, 
and the matrices PHINBR and TBR which were output from program BOOSTER. 

After all necessary data is known the subroutine ZFORCE goes about 
choosing the correct subroutines to generate the interpolated data on the 
sequential file NWFILE. To accomplish this goal with minimal time 
requirements, several special purpose subroutines were developed that 
combine partition and dense-logic. 

If the input time/force data has not been previously processed, it is 
interpolated with either subroutine ZTERP or ZTERP1. ZTERP is a pure 
partition-logic linear interpolation routine. Output from this routine 
is in a matrix form that corresponds to the input. Subroutine ZT0SEQ3 
then processes this matrix output data into the sequential file NWFILE. 
ZT0SEQ3 is also a pure partition-logic subroutine and therefore, has 
small storage space requirements and can handle large matrices. 
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Subroutine ZTERP1 is a special purpose subroutine which does the 
interpolation of the data and generates NWFILE at the sane tine. By 
combining these functions ZTERPl runs approximately six times faster than 
the above combination* ZTERPl, however, is limited on the size of the 
matrices it can handle* This subroutine works by disassembling a row 
partition of the input matrix into a dense-logic matrix and then 
interpolates this section and writes the answers on NWFILE* The limits 
on size are determined by the dimensions of this dense-logic work 
matrix. Originally, this dimension was 600* 

When interpolation of the force data is not needed either subroutine 
ZT0SEQ3 or ZTOSEQ2 converts the matrix data input into sequential output 
form. ZTOSEQ2 uses the same technique as ZTERPl and the same matrix work 
space. It sections out a row partition of input matrix and converts it 
to a dense matrix and then generates NWFILE* Consequently, it suffers 
from the same size limitation as ZTERPl, but is again six times faster 
than ZT0SEQ3. 

It should be pointed out that the use of these combinations of 
subroutines provides a balance between computation time and storage 
requirements* The hybrid routines run faster but require much more 
storage space. Therefore, the user might deem it worthwhile to change 
the limits on the size of the work space used by ZT0SEQ2 and ZTERPl to 
fit his needs* 

Subroutine ZFORCE does not have any subroutine arguments* All data 
is input through a data deck. The exact form or this data deck is given 
in the subroutine writeup* 


Program RESPONS 


Program RESPONS calculates the response of the coupled 
boost er/payloadsCs) system* The numerical technique used in this program 
is described by Eqs. (11-17) of Chapter I* These equations are 
programmed in subroutine ZRESP which does all of the calculations* 


Subroutine ZRESP requires the following input: 


NDAMPB and either DAMPB or ZETAB 


NDAMPB * 0 indicates a constant value of booster modal 
damping. If NDAMP * 0 input ZETAB as this 
constant value 

NDAMPB * 1 indicates a variable value of booster modal 
damping _ 

If NDAMP ■ 1 input DAMPB * T Tg J where 
DAMPB is a (1 x NB) row vector. 
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NDAMPI and either DAMP I or ZETAI 

■ The itM ptrmtiri and variables aa above for the 
interface «odal damping • 

NDAMPP and either DAMPP or ZETAP 

■ The ease parameters and variables as above for the 
payload nodal damping* 

FREQBT » The assembled, truncated, cantilevered booster 
frequency vector output from ZBOOST 

FREQI ■ The interface frequency vector output from ZXNTF 

FREQPT ■ The truncated, cantilevered payload frequency vector 
output from ZPAYL 

B2 • The interface/booster mass coupling matrix, output 
from ZINTF 

P2 " The interface/payload mass coupling matrix, output 
from ZINTF 

PHIIB “ x * interface modes matrix output from ZINTF 

QNBO, QNBDO, QIBO, QIBDO, QNPO , and QNPJO - the initial 

displacement and velocity patterns for the booster, 
interface and payload 

STARTT, KNDT, DELTAT 

■ The start tism, end time and time step for the 
numerical integration routine 

GAMMA AND BETA 

■ Parareters in the Nevmark-Chan-Bet a numerical 
integration scheme* Good values are GAMMA ■ 0.5 and 
BETA - 0.25 

IF ■ Number of interface degrees of freedom 
NB ■ Number of non-interface booster degrees of freedom 
NP - Number of non-interface payload degrees of freedom 
NF ■ Number of forces acting on the booster 

NFORFL ■ Logical file number containing the interpolated force 
data output from ZFORCE 

NWFILE ■ Logical file number for output of the response data 
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NWRKFL * Logical file number of a required partition-logic vork 
file 

NWRITE * 0 when the results are no*: to be printed on paper 

n the response data will be written on paper every 
n time steps 

These input parameters and variables are then used to solve for the 
non-time dependent constants in Eqs. (13-15). Also, to totally describe 
the initial state of the system, we solve for the initial accelerations 
using Eq. (10) evaluated at the start time of the integration time loop. 
The response loop itself involves solving eqs. (12, 14 and 16) for each 
time step. 


Once again subroutine ZRESP has no subroutine arguments. All input 
is done thru a data deck that is described in the documentation listed at 
the beginning of the subroutine. 


f . Program LOADS 

Program LOADS uses the response data and previously generated 
transformation matrices to calculate the internal loads. These loads can 
be calculated for an entire payload or any group of members upon 
request, This program must be run separately for each payload. All 
calculations are done in subroutine ZLOADS. A flow chart of ZLOADS is 
given in Figure 13. - 

Subroutine ZLOADS reads all input information from a data file, which 
is described in the subroutine documentation, it has no arguments. The 
subroutine begins by reading in a series of flag and input parameters. 
These parameters are: 


IFB * The number of interface degrees of freedom in the 
booster 


IFP * The number of interface degrees of freedom for the 
payload under study. (Note - this program is run 
separately for each payload, IFP is the number of 
degrees of freedom in this payload.) 

ISELECT * 0 All rows of PKPSI are used in the load 

calculations 


1 Only rows of PKPSI that are selected by IVSEL are 
used in the load calculations 


MAXL - 0 

1 


Maximum /minimum loads calculation is not desired 

Maximum/minimum loads calculation will be 
performed 
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Figure 13. Flow chart of subroutine ZLOADS 


46 



NP * The total number of truncated, cantilevered modes for 
all payloads. The size of matrix (QN?) 

NQNP ■ Number of non-interface dofs. in this payload 

NQNPS * The position number in matrix (QNP) where the first 
degree of freedom for this payload occurs 


NRESPFL * Logical unit number of the sequential file containing 
the response output from subroutine ZRESP 


NTAPE * Logical unit number of a dense-logic forma file for the 
output of the maximum/minimum loads calculation 
results* If MAXL ■ 0 this file designation is ignored. 

NWFILE ■ Logical unit number of a sequential file on which to 
write the loads calculation results * 


NWRITE * 0 Loads results are not written on paper (if 

max/min loads are calculated, they are printed) 

* n The loads results are written on paper every n 
time points 


We then read in a load transformation matrix PKPSI which is given in 
Eq* (18)* PKPSI is the entire free stiffness matrix of the payload 
(PKPSI *Kp ) if internal node elastic forces is the desired output 
result. However, if indlvidral member loads are desired, it will be the 
stiffness kernel for that member. The input flag ISELECT is consistent 
with this approach. If we are interested in studying a member of the 
body, then dependiug on the form of PKPSI we might desire to select out 
certain rows of PKPSI. An example of this feature is when the input form 
of PKPSI contains many zero rows or extraneous information. If we wish 
to use this selection process, we set ISELECT * 1 and input a vector 
IVSEL which when used in subroutine ZSLADR, picks out the desired rows. 

Next a series of matrices that were output by subroutines ZPAYL and 
ZINTF are input. These matrices are PLl, PL2, TP and PHIIB. We must 
then select the rows of PHIIB which correspond to this payload. Therefore, an 
integer vector, IVEC, that designates which dofs ot PHllB are the 
interface dofs for the payload under study. These matrices are then used 
in the loads loop to calculate the loads history of the body or member. 

Also upon request, MAXL ■ 1, we calculate and output the maximum and 
minimum loads for the body. 
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4 * SAMPLE PROBLEMS 


In this section ve shall discuss two sample problems. The first 
consists of a shell booster model that is to be integrated with two 
truss-llke payloads. The second sample problem involves the more 
realistic caee of the Space Transportation System (STS), Space Telescope 

(ST), and the OMS kit response and load analysis. Ve also included results 
on the short-cut version. 
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ORIGINAL PAGE 1ST 
Sample Problem 1 OF POOR QUALITY 

As stated previously, this sample problem consists of a booster and 
two payloads. FINEL, a Martin Marietta developed finite element code was 
used to generate these three models and their corresponding physical 
properties. 

The booster, as shown in Figure 14 is a hexagonal cylinder consisting 
of 24 quadrilateral plate sections. The material properties of each of 
the plates are: 

S« 0.025 lb/in 2 , E - 10.6 x 10 4 , ^ - 0.334 and 

thickness » 0,1 in 

We joined the 24 elements at 30 nodes as described in Table 1. Each of 
these 30 nodes were assigned three translational degrees of freedom. The 
geometry and dof numbering system for the model are shown in Table 2, 
Twelve nodes (number 8, 9, 11, 12, 14, 15, 17, 18, 20, 21, 23 and 24) and 
all of their corresponding dofs were designated to make up the interface 
for possible coupling with payloads. Thus, for the booster we have 36 
interface dofs and 54 non-interface dofs. 


INPUT DATA FOR COMBINED MEMBRANE -BENDING QUADRILATERAL PLATE ELEMENTS 


MASS • Ml 


RO • 

.250E-01 

T(MASS) • 

. lOOE+OO 


ELEMENT 

JOINT 

NUMBER 


1 

1 

2 

2 

3 

3 

4 

4 

5 

5 

6 

6 

7 

7 

t 

8 

9 

9 

10 

10 

1 1 

1 1 

12 

12 

13 

13 

14 

14 

15 

15 

16 

16 

17 

17 

18 

18 

19 

19 

20 

20 

21 

21 

22 

22 

23 

23 

24 

24 


STIF • K 
E • 

NU ■ 

T( MEMBRANE ) * 
T(BENOING) ■ 

1 JOINT 2 

2 

3 

4 

5 
8 
1 
a 

9 
10 
1 1 
ir 
7 

14 

15 

16 
17 
' 8 
13 
20 
21 
22 

23 

24 
19 


106E+06 


334E+00 


100E+00 


100E+00 


JOINT 3 

JOINT 

8 

7 

9 

8 

10 

9 

1 1 

10 

12 

1 1 

7 

12 

14 

13 

15 

14 

16 

15 

17 

16 

18 

17 

13 

18 

20 

19 

21 

20 

22 

21 

23 

22 

24 

23 

19 

24 

26 

25 

27 

26 

28 

27 

29 

28 

30 

29 

25 

30 


Table 1. Description of quadrilateral plate 
elements for the booster model used 
in sample problem 1 
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OF POOR QUALiT \ 
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Figure 14. Booster model for Sample Problem 










ORIGINAL PAGE IS 
OF POOR Q'lAUTY 


JOINT DATA USED l\ SUBROUTINE FEMKA 




OEGREES OF 

FREEDOM 



GLOBAL 

CARTESIAN COORDINATES 


TRANSLATION 

ROTATION 





JOINT 

U 

V 

W 

P 

0 

R 

X 

Y 

Z 

1 

1 

2 

3 

0 

0 

0 

5.0000 

0.0000 

50.0000 

2 

4 

5 

6 

0 

0 

0 

2.5000 

4.3300 

50.0000 

3 

7 

8 

9 

0 

0 

0 

-2.5000 

4.3300 

50.0000 

4 

10 

11 

12 


0 

o 

-5.0000 

0.0000 

50.0000 

5 

13 

14 

15 

0 

0 

0 

-2.5000 

-4.3300 

50.0000 

6 

16 

17 

18 

0 

0 

0 

2.5000 

-4.3300 

50.0000 

7 

19 

20 

21 

0 

0 

0 

5.0000 

0.0000 

25.0000 

8 

22 

23 

24 

0 

0 

0 

2.5000 

4.3300 

25 0000 

9 

25 

26 

27 

0 

0 

0 

-2.5000 

4.3300 

23.0000 

10 

28 

29 

30 

0 

0 

0 

-5.0000 

0.0000 

25.0000 

1 1 

31 

32 

33 

0 

0 

0 

-2.5000 

-4.3300 

25.0C0G 

12 

34 

30 

36 

0 

0 

0 

2.5000 

-4.3300 

25.0000 

13 

37 

38 

39 

0 

0 

0 

5.0000 

0.0000 

0.0000 

14 

40 

41 

42 

0 

0 

0 

2.5000 

4.3300 

0.0000 

15 

43 

44 

45 

0 

0 

0 

-2.5000 

4.3300 

0.0000 

16 

46 

47 

48 

0 

0 

0 

-5.0000 

0.0000 

0 0000 

17 

49 

50 

51 

0 

0 

0 

-2.5000 

-4.3300 

0.0000 

18 

52 

53 

54 

0 

0 

0 

2.5000 

-4.3300 

0.0000 

19 

55 

56 

57 

0 

0 

0 

5.0000 

o.oocc 

-"".0000 

20 

58 

59 

60 

0 

0 

c 

2.5000 

4.3300 

-25.0000 

21 

61 

62 

63 

0 

0 

0 

-2.5000 

4.3300 

-25.0000 

22 

64 

65 

66 

0 

0 

0 

-5.0000 

0.0000 

-25.0000 

23 

67 

68 

69 

0 

0 

0 

-2.5000 

-4.3300 

-25.0000 

24 

70 

71 

72 

0 

0 

0 

2.5000 

-4.3300 

-25.0000 

25 

73 

74 

75 

0 

0 

0 

5.0000 

0.0000 

-co.oooo 

26 

76 

77 

78 

0 

0 

0 

2.5000 

4.3300 

-50.0000 

27 

79 

80 

81 

0 

0 

0 

-2.5000 

4.3300 

-50.0000 

23 

82 

83 

84 

c 

0 

0 

-5.0000 

0.0000 

-50.0000 

29 

85 

86 

87 

0 

0 

0 

-2.5000 

-4.3*00 

-50.0000 

30 

88 

89 

90 

0 

0 

0 

2.5000 

-4.33^0 

-50.0000 


Table 2. Geometry desolation and degree of freedom table 
for the booster model used In sample problem 1 


51 



In order to run pvograa BOOSTER for this model wa generated four 
pieces of information about tha body. Flrati the f ree-f ree aaaa and 
atiffnaaa aatrlcaa wara generated, than tha intarfaca dofa warn 
conatrainad to generate tha intarfaca cantilavarad modes and 
frequenclas. Also, it vas determined to forca tha aodel In tha 
Z-directlon at nodaa 26, 27, 29 and 30 (dofa 78, 81, 87 and 90), 

Ualng tha abova information prograa ZB00ST was run in ordar to 
ganarata all tha booatar quantities nacaaaary to run tha other prograaj 
in tha software package. Figure 15 shows tha input deck to prograa 
BOOSTER. Tha first three lines are input required by subroutine START. 
These determine the RUNNO and a descriptive title. All other lines are 
required by subroutine ZB00ST. For this model we have 36 interface dofa 
(IF • 36), we have retained all of the booster cantilevered modes and 
fraquanclaa (N1 " 54), we have a total of 90 dofa (ND - 90) and four 
force polntr (NF - 4). Since the only information we have about the 
booster ie the free mass and stiffness, the non-expanded cantilevered 
modes and the cantilevered frequencies, NEX0 ■ 0, NTB ■ 0, NBMK12 • 0. 
Also, since there are more Interface dofs than rigid body dofs, the 
Interface is not determinate (NDET • 0). The results of subroutine 
ZBOOST's interpretation of this file is given in the sample output 
(Figure 16). A listing of the matrices generated by this subroutine and 
their sites are given in Table i. 


L I ST I NO OF MATRICES ON LOGICAL UNIT 40 


RUN NO 

NAME 

NROWS 

NCOLS 

DATE 

OENSITY 

2BOOST 

PHINB 

90 

84 

10SI62 

100% 

ZBOOST 

TB 

90 

36 

tosEsa 

100% 

ZBOOST 

PHINBR 

4 

84 

10SE82 

100% 

>B00ST 

FREQ8T 

1 

84 

10SEB2 

100% 

ZBOOST 

TBR 

4 

36 

10SIB2 

100% 

ZBOOST 

BM1 

36 

84 

10SCB2 

100% 

ZBOOl t 

BM2 

36 

36 

10SE62 

100% 

ZBOOS 

8*2 

36 

36 

10SI62 

100% 

3. Listing of 
ZBOOST for 

the matrices output by 
sample problem 1 

subroutine 


om*'” 

Oh’ p(X>H 


r-*' * 
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W?K»J/VAL 
°F POOR 


Quality 


IROOST TO SHANAHAN 

PROGRAM ZtOOST FOR ROOSTER 1 $AFPU PROOltM 
PART Or PAVCQAO INTIMATION SOFTWARE PACKAGE 


99 

94 

•0 

4 


* IF ,NR, NO, NF • 

40 

20 

0 



* NMFILl , NWRRFl % NMRITI * 

0 

0 

0 

0 


* Nl XP , NTR , N9MK 1 2 » NOE T * 

MODES 

0 

' 3 1 ROOST 


• NON*! XPANOf D CANT ILEVIRIO ROOSTER MOOES 

1 face 

1 

39 



* VICTOR OF INTERFACE OOFS IN ROOSTER « 

1 

1 

22 

23 

24 

29 29 37 

1 

7 

31 

32 

33 

34 39 39 

1 

13 

40 

41 

42 

43 44 49 

1 

19 

49 

90 

91 

92 93 94 

1 

29 

99 

99 

60 

91 92 93 

1 

31 

•? 

ft 

99 

70 T 1 72 

0000000000 





NFsiRC: 

1 

4 



• VECTOR OF FORCED OOFS * 

1 

1 

79 

91 

• 7 

90 

oooooooooo 





MASS 

0 

-30UN0900 


♦ FREE ROOSTER MASS * 

stif 

0 

3OUN0900 


♦ FREE ROOSTER STIFFNESS * 

FRIO 

0 

-3 IROOST 


* CANT I LEVERED ROOSTER FREQUENCIES * 

STOP 







Figure IS. Input deck to program BOOSTER 


input variables to xroost 


NWF1LI • 40 
NWRKFt * 20 
NWRITI * 0 


DESCRIPTION OF ROOSTER 


NUMBER OF ROOSTER DOFS ■ 
NUMBER OF BOOSTER INTERFACE DOFS • 
NUMBER Qf TRUNCATED ROOSTER MOOES RETAINED • 
NUMBER OF FORCES APPLIED TO THE ROOSTER • 


90 

NO * 

90 

36 

IF • 

39 

94 

NR • 

94 

4 

NF * 

4 


THE MOOES ARE NOT EXPANDED 10 INCLUDE INTERFACE DOFS 
TR, RM \ , RM2. AND BK2 ARE NOT QIVEN 
THE INTERFACE IS NOT DETERMINANT 


(NESP * 0 ) 
t NTR • 0> 

{ NOf T * 0> 


Figure Id, Sample output trom subroutine fcBOOST 
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Figure 17 shows ths first payload (payload PI ) which is made up of 18 
bar elements. The bars are joined at 8 nodes to form this truss. The 
geometry of the structure is ;iven in Table 4 and the material properties 
are given in Table 5. Once again all nodes were assigned translational 
degrees of freedom only. The four corner nodes and all of their 
corresponding degrees of freedom make up the interface. Thus we have the 
following for payload 1. 

ND • 12, IF ■ 12, 

and, IFACE - dofs 1, 2, 3, 4, 5, 6, 10, 11, 12, 13, 14 and 13 

If order to run program PATLOAD for this structure we generated the free 
mass and stiffness and the interface cantilevered modes and frequencies. 
Program PAYLOAD was run using the input deck as shown in Figure 18. Note 
that using the limited information at hand; (namely, the free maes and 
stiffness and the cantilevered modes and frequencies) all the flag keys - 
NEXP, NTP, NPMK12, NDET, NLOAD and MSP are urn, and we retained all of 
the cantilevered modes and frequencies (NP “ 12). Figure 19 shows how 
subroutine ZPAYL Interpreted this input record, and Table 6 shows a 
listing of the matrices that were generated and saved on NUFILE. 


LISTING OF MATRICES ON LOGICAL UNIT 40 


MO. 

RUN NO 

NAME 

NROWS 

NCOLS 

DATE 

density 

1 

PAYL1 

PHINP 

12 

12 

10SE82 

100% 

2 

PAYL1 

FREQPT 

1 

12 

10SE82 

100% 

3 

PAYL1 

TP 

24 

12 

10SE82 

100% 

4 

PAYL1 

PM 1 

12 

12 

10SE82 

100% 

3 

PAYL1 

PM 2 

12 

12 

10SE82 

100% 

6 

PAYL1 

PK2 

12 

12 

10SE82 

100% 

7 

PAY11 

PL 1 

24 

12 

10SE82 

100% 

8 

PAYL1 

PL2 

24 

12 

10SE82 

10O% 


Table 6. Listing of the matrices output by subroutine 
ZPAYL for Payload 1 





ORIGINAL PAG- 1 


JOINT DATA USED IN SUBROUTINE FEMKA 




DEGREES 

OF 

FREEDOM 



GLOBAL 

CARTESIAN COORDINATES 


TRANSLATION 

ROTATION 





JOINT 

U 

V 

W 

P 

0 

R 

X 

/ 

z 

1 

1 

2 

3 

0 

0 

0 

2 . 5000 

4 3300 

0 0000 

2 

4 

5 

6 

0 

0 

c 

-2.5000 

4 3300 

0 0000 

3 

7 

8 

9 

0 

0 

o 

-2.5000 

-1 0000 

1 0000 

4 

10 

1 1 

12 

0 

0 

0 

-2 5000 

* 4 . 3300 

0.0000 

5 

13 

14 

15 

0 

0 

0 

2 . 5000 

-4 3300 

0 . ocoo 

6 

16 

17 

18 

0 

0 

0 

2 . 5000 

- 1 .oooo 

1 ocoo 

7 

19 

2C 

21 

0 

0 

0 

-2 5000 

- 1 . 0000 

- 1 ocoo 

8 

22 

23 

24 

0 

0 

0 

2 . 5000 

- 1 . 0000 

- 1 . coco 


Table 4* Geometry and degree of freedom table 
for payload 1 


INPUT DATA FOR BAR ELEMENTS 





KODEK 

* 

KOOEB * 

MASS * Ml 

STIF 

* K 1 

LOAD TRANS * 

PAV3LT 

STRESS TRANS * 

RO * 

. 250E-02 

E * 

G * 

. 106E+05 
. 384E+07 

alpha * 

0 . 


ELEMENT 

JOINT 

JOINT 

REF 

AREA 

POLAR 

TORSION 

Z BENDING 

V bending 

SHEAR 

NUMBER 

1 

2 

POINT 


INERTIA 

CONST 

inertia 

inertia 

factor 

1 

6 

1 

2 

100E-01 

. 167E-04 

. 141E-04 

.833E-05 

.833E-05 

933 

2 

i 

2 

3 

100E-01 

167E-04 

. 14 1 E *04 

833E-05 

. 833E -05 

.833 

2 

2 

3 

1 

tOOE-OI 

. 167E-04 

141E-04 

S33E-05 

833E-05 

833 

4 

3 

6 

1 

. 100E-01 

1 67 E -J4 

. 14 1 E -04 

.833E-05 

933E -05 

833 

5 

3 

1 

2 

10CE-01 

'6~E-04 

. 141E-04 

.833E-05 

833E-05 

.833 

6 

8 

2 

1 

. 1C0E-01 

167E -04 

14 1 E -04 

833E-05 

833E-05 

.833 

7 

3 

4 

6 

. 100E-01 

. 167E-04 

. 14 IE -04 

.833E-05 

833E -05 

. 833 

9 

4 

5 

1 

100E-01 

1 6 T E -04 

14 IE-04 

833E-05 

833E-05 

.833 

9 

5 

6 

3 

100E-01 

1S7E-04 

14 i E -04 

833E-05 

.833E-05 

833 

10 

4 

6 

1 

. 100E-01 

167E-04 

14 IE-04 

833E -05 

. 833E -05 

.833 

1 1 

7 

5 

4 

. 100E-01 

167E-04 

14 1 E -04 

.833E-05 

833E -05 

833 

12 

6 

8 

5 

. 100E-C1 

167E-04 

1 4 iE -04 

.833E-05 

833E-05 

833 

13 

3 

7 

4 

* OQE -0 1 

167E-04 

.141 E -04 

.833E-05 

833E-05 

833 

1 4 

8 

-y 

2 

1Q0E-01 

. 167E-04 

. 14 IE -04 

833E-05 

833E-05 

933 

15 

5 

3 

6 

. 100E-01 

. 167E-04 

. 141 E -04 

833E-05 

833E-05 

333 

16 

4 

7 

3 

. 100E-01 

. 167E-04 

. 14 1 E -04 

833E-05 

833E-05 

833 

1 7 

1 

8 

6 

o 

o 

m 

6 

167E-04 

. 141E-04 

333E-05 

333E-05 

833 

18 

2 

- 

3 

100E-01 

. 167E-04 

141 E -04 

833E -05 

933E -05 

833 


Table 5. Payload I material properties 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


PAY LI TG SHANAHAN 

PROGRAM ZPAYL FOR PAYLOAD t 

PART OF PAYLOAD INTEGRATION SOFTWARE PACKAGE 


12 

12 

24 



• IF.NP.ND • 

40 

20 

0 



• NWFILE. NWRKFL, NWRITE • 

0 

0 

0 0 

0 

0 

• NEXP. NTP. NPMK 12, NDET. NLOAD. NEP 

MODES 

0 

-31PAYL1 


• 

NCN-EXPANOED CANTILEVERED PAYLOAD MODES • 

I FACE 

1 

12 


* 

VECTOR OF INTERFACE DOFS • 

1 

1 

1 2 

3 

4 

5 6 

1 

7 

10 1 1 

12 

13 

U 15 

oooooooooo 





MASS 

0 

-30PAYL 1 


• 

FREE PAYLOAD MASS MATRIX * 

STIF 

0 

-30PAYL1 


• 

FREE PAYLOAD STIFFNESS MATRIX • 

FREO 

STOP 

0 

-31PAYL1 


• 

CANTILEVERED PAYLOAD FREQUENCIES • 




Figure 18. Input deck to program PAYLOAD 
for payload 1 


INPUT VARIABLES TO ZPAYL 


NWFILE * 40 
NWRKFL * 20 
NWRITE * 0 


DESCRIPTION OF PAYLOAD 



NUMBER OF PAYLOAD DOFS - 

24 

' u 

24 

NUMBER OF 

PAYLOAD INTERFACE DOFS * 

12 

*- c 

12 

NUMBER OF TRUNCATED 

PAYLOAD MOOES RETAINED « 

12 

* 

12 


THE MODES ARE NOT EXPANDED TO INCLUDE INTERFACE DOFS 
TP. PM1, PM2, AND PK2 ARE NOT GIVEN 
THE INTERFACE IS NOT DETERMINANT 
THE LOAD TRANSFORMATIONS PL 1 AND PL2 ARE NOT GIVEN 
THE CANTILEVERED FLEXIBILITY - EP IS NOT GIVEN 


(NEXP = O) 
NTP - 0) 

( NDET * 0) 
(NLOAU « 0) 
(NEP * 0) 


Figure 19. Sample output from subroutine ZPAYL 
for payload 1 
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The same scheme used in the development of payload 2. This model as 
shown in Figure 20 consists of 28 bar elements joined at 12 node points 
to form a truss. The geometry and the degree of freedom table for the 
model are given in Table 7 and the material properties and connections 
are given in Table 8. As in payload 1 all nodes were given three 
translational degrees of freedom and the corner nodes comprise the 
interface. Therefore, for payload 2: 

ND - 36, IF - 12 

and I FACE * dof’s 7, 8, 9, 10, 11, 12, 19, 20, 21, 22, 23 and 24 

Models were created to generate the free-free mass and stiffness of the 
structure and the interface cantilevered modes and frequencies. With 
this Information program PAYLOAD was run. Figure 21 shows the input deck 
to program PAYLOAD for payload 2. Note that all cantilevered modes and 
frequencies were retained (i.e. NP ■ 24), no other information other than 
that stated above was available ( i.e. NEXP, NTP, NPMK12, NLOAD and 
NEP - 0), and the Interface is indeterminate. Figure 22 is output from 
subroutine ZPAYL and shows how the subroutine interpreted the input 
deck. A listing of the resultant matrices from this subroutine is given 
in Table 9. 


LISTING OF MATRICES ON LOGICAL UNIT 40 


NO. 

RUN NO 

NAME 

NROWS 

NC0LS 

DATE 

DENSITY 

1 

PAYL2 

PHI NP 

24 

24 

1 1SE82 

100% 

2 

PAY L2 

FRE0°T 

1 

24 

1 1SE82 

100% 

3 

P A > L 2 

TP 

36 

12 

1 1SE82 

100% 

4 

PAYL2 

PV 1 

12 

24 

1 1SE82 

100% 

5 

PA' L2 

r "2 

12 

12 

1 1SE82 

100 % 

6 

PA Y L2 

P.. ' 

12 

12 

1 1SE82 

100'; 

7 

PAYL2 

PL ' 

36 

24 

1 1 SE82 

100'' 

3 

PAv L2 

PL2 

36 

12 

1 1 SE82 

100% 


Table 9. Listing of the matrices output by subroutine 
ZPAYL for Payload 2 


Now that all of the individual properties have been derived for the 
booster and each of the two payloads, the next step is to couple the 
three bodies together. Table 10 provides a map of how the booster/ 
payloads system is Integrated. 


vjwew. 

0F POOS QUAUTY 
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ORIGINAL PAG'i IS 
OF PC'*"* QUALITY 


JOINT DATA USED IN SUBROUTINE FEMKA 

DEGREES OF FREEDOM GLOBAL CARTESIAN COORDINATES 

TRANSLATION ROTATION 


00 1 NT 

U 

V 

W 

P 0 

R 

X 

Y 

z 

1 

1 

2 

3 

0 0 

0 

2.5000 

0.0000 

1.0000 

2 

4 

5 

6 

0 0 

0 

2.5000 

2.0000 

1.0000 

3 

7 

8 

9 

0 0 

0 

2.5000 

4.3300 

0.0000 

4 

10 

11 

12 

0 0 

0 

- 2.5000 

4.3300 

0.0000 

5 

13 

14 

15 

0 0 

0 

- 2.5000 

2.0000 

1.0000 

5 

16 

17 

18 

0 0 

0 

- 2.5000 

0.0000 

1.0000 

7 

19 

20 

21 

0 0 

0 

- 2.5000 

- 4.3300 

0.0000 

8 

22 

23 

24 

0 0 

0 

2.5000 

- 4.3300 

0.0000 

9 

25 

26 

27 

0 0 

0 

- 2.5000 

0.0000 

- 1.0000 

10 

28 

29 

30 

0 0 

0 

2,5000 

0.0000 

- 1.0000 

11 

31 

32 

33 

0 0 

0 

- 2.5000 

2.0000 

- 1.0000 

12 

34 

35 

36 

0 0 

0 

2.5000 

2.0000 

- 1.0000 


Table 7. 

Geometry and degree of 

freedom table 





for 

payload 2 








INPUT 

OATA FOR BAR ELEMENTS 



K0D6K 

* KOOEB » 

MASS » Ml 

STIF - K 1 

LOAD TRANS - 

PAY4LT STRESS TRANS • 

RO * 

.2506-02 6 - 

. 1066+05 

ALPHA ■ 0. 


G * 

.3846+07 



EL6M6NT 

JOINT 

JOINT 

REF 

AREA 

POLAR 

TORSION Z 

BENOING 

Y BENOING 

SHEAR 

NUMBER 

1 

2 

POINT 


INERTIA 

CONST 

INERTIA 

INERTIA 

FACTOR 

1 

1 

2 

4 

. 1006-01 

. 1676-04 

. 14 1 E *04 

. 8336 -05 

.8336-05 

.833 

2 

2 

3 

4 

. 1006-01 

. 1676-04 

. 1416-04 

.8336-05 

.8336-05 

.833 

3 

3 

4 

2 

. 1006 -01 

. 1676-04 

. 1416-04 

.8336-05 

.8336-05 

.833 

4 

4 

5 

2 

. 1006-01 

. 1676-04 

. 1416-04 

.8336-05 

.8336-05 

.833 

5 

5 

6 

1 

. 100E-01 

. 1676-04 

. 14 IE -04 

.8336-05 

.8336-05 

.833 

6 

6 

7 

1 

. 1006-01 

. 167E-04 

. 141E-04 

.8336-05 

.833E-05 

.833 

7 

7 

8 

1 

. 1006-01 

. 1676-04 

. 14 1 E -04 

.8336-05 

. 8336 -05 

.833 

8 

8 

1 

6 

. 1006-01 

. 1676-04 

. 1416-04 

.833E-05 

.8336-05 

.833 

9 

5 

2 

3 

. 1006-01 

. 167E-04 

. 1416-04 

. 8336-05 

.8336-05 

.833 

10 

11 

12 

10 

. 1006-01 

. 1676-04 

. 1416-04 

.8336-05 

.833E-05 

.833 

1 1 

5 

3 

2 

. 100E-01 

. 1676-04 

. 1416-04 

.8336-05 

.8336-05 

.833 

12 

6 

1 

2 

. 1006-01 

. 167E-04 

. 1416-04 

.833E-05 

.8336-05 

.833 

13 

6 

2 

1 

. 1006-01 

. 167E-04 

. 14 1 E -04 

.8336-05 

.8336-05 

.833 

14 

9 

10 

12 

. 1006-01 

. 167E-04 

. 1416-04 

.8336-05 

.8336-05 

.833 

15 

7 

1 

8 

. 100E-01 

. 167E-04 

. 14 IE -04 

.8336-05 

.833E-05 

.833 

16 

4 

12 

3 

. 1006-01 

. 167E-04 

. 1' iE-04 

.8336-05 

.8336-05 

.833 

17 

1 1 

10 

9 

. 1006-01 

. 1676-04 

. 1416-04 

.833E-05 

833E-05 

.833 

18 

9 

8 

10 

. 1006-01 

. 167E-04 

. 141E-04 

8336-05 

.8336-05 

.833 

19 

1 

10 

12 

. 1006-01 

. 1676-04 

. 1416-04 

.8336-05 

.8336-05 

.833 

20 

2 

12 

10 

. 100E-01 

. 1676-04 

. 1416-04 

833E-05 

.8336-05 

.833 

21 

6 

9 

1 1 

. 100E-01 

. 1676-04 

. 14 1 E -04 

.8336-05 

.8336-05 

.833 

22 

5 

1 1 

9 

. 1006-01 

. 1676-04 

. 1416-04 

.8336-05 

.8336-05 

.833 

23 

6 

10 

1 

. 100E-01 

. 167E-04 

. 1416-04 

.833E-05 

.8336-05 

.833 

24 

10 

12 

1 

. 1006-01 

. 167E-04 

. 1416-04 

.8336-05 

.833E-05 

.833 

25 

12 

3 

2 

. 1006-01 

. 1676-04 

. 1416-04 

. 8336 -05 

.8336-05 

.833 

26 

7 

9 

6 

. 1006-01 

. 1676-04 

.1416-04 

.8336-05 

.8336-05 

.833 

27 

9 

1 1 

6 

. 1006-01 

. 1676-04 

. 1416-04 

.833E-05 

833E-05 

.833 

28 

1 1 

4 

5 

. 1006-01 

. 167E-04 

. 1416-04 

8336-05 

.833E-05 

.833 



Table 8. 

Payload 2 

material 

properties 
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ORIGINAL Pag: 
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PAYL2 TG SHANAHAN 

PROGRAM ZPAYL FOR PA i LOAD 2 
PART OF PAYLOAD INTEGRATION 


12 
40 
0 

MOOES 
IFACE 
1 
1 

0000000000 

MASS 0 

STIF 0 

FREO 0 

STOP 


24 

20 

0 

0 

1 

1 

7 


36 

0 

0 0 

- 3 1 PAY L2 
12 

7 8 

19 20 

-30PAYL2 

-30PAYL2 

-31PAYL2 


9 

21 


FOR SAMPLE PAROBLEM 
SOFTWARE PACKAGE 
« IF.NP,ND • 

* NWF I LE , NWRKFL , NWR I TE * 

0 * NEXP.NTP .NPMK12.NDET .NLOAD.NEP 

• NON-EXPANDEO CANILEVERED MODES 

• VECTOR OF INTERFACE DOFS • 

10 H 12 

22 23 24 

* FREE MASS MATRIX - 

• FREE STIFFNESS MATRIX • 

* CANTILEVERED FREQUENCIES - 


Figure 21. Input deck to program PAYLOAD 
for payload 2 


INPUT VARIABLES TO ZPAYL 


NWF I L E = 40 

NWRKFL * 20 

NWR I TE = O 


DESCRIPTION OF PA i LOAD 


NUMBER OF PAYLOAD DOFS * 
NUMBER OF PAYLOAD INTERFACE DOFS = 
NUMBER OF TRUNCATED PAYLOAD MODES RETAINED * 

THE MODES ARE NOT EXPANDED TO INCLUDE INTERFACE DOFS 
TP. PM 1 , PM2 . AND PK2 ARE NOT GIVEN 
THE INTERFACE IS NOT DETERMINANT 
THE LOAD TRANSFORMATIONS PL 1 AND PL2 ARE NOT GIVEN 
THE CANTILEVERED FLEXIBILITY - £P is NOT GIVEN 


36 

ND * 

36 

12 

IF « 

12 

24 

NP * 

24 


(NEXP 

* 0 ) 

NTP * 

0) 

( NDET 

* 0) 

< NLOAD 

* 01 


INEP » 01 


Figure 22. Sample output from subroutine ZPAYL 
for payload 2 
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Table 10 Map of Booster and Payload Interface dofs 


Program INTFACE does the actual coupling of booster and payload 
quantities. We already know the following inputs to subroutine ZINTF: 

NPAY - 2 , IFB - 36 

and, NPTOT » NPp a yi oa< j l + NPp a yload 2 

- 12 +24 

- 36 

All other quantities were output from subroutines ZBOOST or ZPAYL except 
for the IFACEP vectors. Each IFACEP vector te..ls how the payload is to 
be attached to the booster. To determine the IFACEP vector, we assign 
each booster dof a number from 1 to IFB in increasing order of overall 
dof number. Likewise, we do the same for each payload. Then, for each 
payload the IFACEP vector tells which booster interface dof number 
corresponds to the payload interface dof number. We now have all the 
information necessary to run program INTFACE. Figure 23 shows the input 
deck to run this program, and Figure 24 shows some mple output from 
subroutine ZINTF which tells how the input was interpreted. A listing of 
matrices output from this subroutine is located in Table 11. 


listing of matrices on logical unit ao 


NO. 

RUN NO 

NAME 

NROWS 

NCOLS 

DATE 

density 

1 

ZINTF 

FREGI 

1 

36 

1 15E82 

100'/ 

2 

ZINTF 

B2 

36 

54 

1 1SE82 

100% 

3 

2INTF 

P2 

36 

36 

1 1SE82 

iOO% 

4 

ZINTF 

BPM2 

36 

36 

1 1SE82 

100% 

5 

ZINTF 

8PK2 

36 

36 

1 1SE82 

too* 

6 

ZINTF 

PHIIB 

36 

36 

1 1SE82 

100 V 

7 

ZINTF 

FREOPA 

1 

36 

1 1SE82 

1 00% 


Table 11, Listing of the matrices output by subroutine 
ZINTF for sample problem 1 


Pi-X i- 


ORIGIN**- y 

OF POOR QUAUT 
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ZINTF TG SHANAHAN 

PROGRAM ZINTF WITH BOOSTER 1 AND PAYLOADS 1 ANO 2 FOR i-MPLE PROBLEM 
PART OF PAYLOAD INTEGRATION SOFTWARE PACKAGE 


o 




• 

NPAY * 

40 

10 

0 


M 

nwfile.nwrkfl.nwrite • 

36 

36 



% 

IFB.NPTOT • 

BM1 

0 

-30ZBOOST 


• 

BOOSTER COUPLING MASS MATRIX - 

BM2 

0 

-30ZB00ST 


• 

BOOSTER MASS MATRIX REDUCED TO INTERFACE 

BK2 

0 

-30ZB00ST 


* 

BOOSTER STIFFNESS REDUCED TC INTERFACE * 

12 

12 



• 

i FP , NP - FOR PAYLOAD 1 • 

IFACEP 

1 

12 



VECTOR OF INTERFACE DOFS fOR PAflJAD 1 • 

1 

1 

1 2 

3 

4 

5 6 

1 

7 

7 8 

9 

10 

11 12 

ooooooocoo 





PM 1 

0 

- 3 1 PA V L 1 


« 

PAYLOAD 1 COUPLING MASS MATRIX < 

PM2 

0 

-31 pay L 1 


♦ 

PAvlOAD 1 MMS RELLCED TO INTERFACE • 

PK2 

0 

-31PA U 


• 

PAYLOAD 1 STIFFNESS REDUCE^ TO INTERFACE 

FPEOPT 

0 

-3 1 °AY L 1 


• 

PAYLOAD 1 TRUNCATED, CANT IVERED FREQ * 

12 

24 



• 

I FP , N'"' - FOR PAYLOAD 2 • 

IFACEP 


12 



VECTCrf OF INTFRFACE OOF FuR PAYLOAD 2 * 

1 

1 

25 26 

27 

28 

29 30 

1 

7 

31 32 

33 

34 

35 36 

0000000000 





PM 1 

0 

-32PA>L2 


* 

PAYLOAD 2 COUPLING MASS MATRIX • 

PM2 

0 

-32PAYL2 


♦ 

PAYLOAD 2 MASS REDUCED TO INTERFACE - 

PK2 

0 

-32PAYL2 


# 

PAYLOAD 2 STIFFNESS REDUCED TO INTERFACE 

FREQPT 

0 

-32PAYL2 



PAYLOAD 2 TRUNCATED, CANTILEVERED FREQ • 


STOP 

Figure 23. Input deck to program INTFACE 
for sample problem 1 
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INPUT DATA TO ZINTF 



.,-file 


40 



NWRKf .. 

* 

10 



NWRITE 

* 

0 


NUMBER OF BOOSTER 

INTERFACE DOFS 

X 

36 

( IFB ■ 

NUMBER OF TOTAL PAYLOAD 

MODES RETAINED 

X 

36 

i NPTOT 


input OATA FOR THE 2 PA v LOADS 


input data for payload i 

DUMBER OF PAYLOAD INTERFACE DOFS * 12 

MUMER OF P4YL0AD TRUNCATED MODES USED * 12 

I VEC OF PAY LOAD INTERFACE DOF LOCATIONS IN THE BOOSTER INTERFACE 


IFdCEP ( 1 X 12 ) 

/INPUT/ 



• VECTOR OF 

INTERFACE 

DOFS FOR PA i LOAD 1 

* 

1112 

3 4 

5 

6 

0 0 0 

0 0 

0 


17 7 5 

9 10 

1 1 

12 





END OF READIM. 









INPUT DATA FOR PA / LOAD 2 

NUMBER OF PAYLOAD INTERFACE DOFS * i; 

NUMBER OF PA> LOAD TRUNCATED MODES USED * 24 

I VEC OF PAYLOAD INTERFACE DOF LOCATIONS IN THE BOOSTER INTERFACE 


IFACEP 

( 1 X 

12 ) 

/ INPUT/ 



• VECTOR OF 

INTERFACE 

DOF FOR payload 2 • 

1 

1 25 

26 

27 28 

29 

30 

C 

o 

o 

0 0 

0 

1 

7 31 

32 

33 34 

35 

36 




END OF 

READIM. 









Figure 24. Saupie >vtput from subroutine ZINTF 
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Now that the models are couple together, the only other data needed 
to determine the response Is the time/force history. Ptogram FORCE takes 
Input tlme/for.e data and outputs lc In a form compatable with the 
response program. For this sample problem, there are four force points 
(NF » 4) 36 booster interface dof (IF ■ 36) and 54 booster modes retained 
(NB - 54). We have set the start time fcr the force data to zero 
seconds, the end time *1.0 seconds and the time step - 0.01 seconds. 

The force data input to this program was a sampling ovei the time range 
of t ■ 0.0 seconds to t • 1.0 seconds for the functions: 


F78 - 150000 
F 81 - 160000 
F 8 7 - 125000 
F 90 - 170000 


sln[3.1416 

sin[2.8274 

sin[3.7700 

sin[3.4558 


(t - .001)] 
(t - .002)] 
(t - .02)] 
<t “ .01)] 


The input deck to program FORCE is given in Figure 25, the interpretation 
of this data is echoed by subroutine ZFORCE in Figure 26. Output on 
NFORCE is sequential. 

Program RESPONS then calculates the response by reading in all the 
booster, payload and force quantifies and entering them in a direct 
numerical integration technique. Note that as input to program RESPONS 
the input start time and tin » step must be equal to that written on the 
input NFORFL, and the end time must be less than the end time on NFORFL. 

For our case we have STARTT » 0.0 seconds, ENDT ■ 0.90 seconds and 
DELTAT ■ 0.01 seconds. As well as properties derived in programs 
JOOSTER, PAYLOAD, INTFACE and FORCE, we must now input the modal 
damping. We choose to Ignore damping for this model, therefore, we have 
a constant value of damping for booster, interface and payload (i.e. 

ZETAB - ZETAI - ZCFAP - 0.0 and NDAMPB - NDAMPI - NDAMPP - 0). We also 
used the recommended values of f and /& for the ftewmark-Chan-Beta 
numerical integration technique ( if m 0.5, /S ■ 0.25). The input to 
program RESPONSE is listed In Figure 27. Notice that the only 
Information needed to be read in are the coupling properties B2 and P2, 
the interface modes, PHIIB and frequencies, FREQI, the cantilevered 
frequencies for the payloads, FREQPA and booster, FREQBT, the damping 
terms as mentioned above and the initial velocities and displacements in 
modal coordinates. For our case the Initial conditions have been set to 
zero. Subroutine ZRESP echoes the input data back as shown in Figure 28 . 
tMitput data from ZRESP are the modal response for the Interface and payload. 
These results are written on TAPE 40 ■ NWFILE. 


66 



ORIGINAL 

0f POOR 


QUALITY 


2P0RCE TG SHANAHAN 

PROGRAM 2P0RCE FOR BOOSTER t SAMPLE PROBLEM 

PART OP COMPLETE BOOSTER-PAVLOAO INTEGRATION SOFTWARE PACKAGE 
20 10 40 * NWRKFL.NWRITE.NFORFL • 

0 1.00 0.01 * STARTT.ENOT.OELTAT * 

4 34 36 * NF,NB.IF • 

0 • IFTERP • 

TIME 0 - 3CS AMPLE - TIME TABLE • 

FORCE 0 -30SAMPLE • FORCE TABLE • 

PHINBR 0 *2 1 ZBOOST * REDUCED CANTILEVERED BOOSTER MODES * 

TBP 0 *3 1 2B00ST * REDUCED BOOSTER CONSTRAINT MODAL MAT * 

STOP 


Figure 25. Input deck to program FORCE 


INPUT PARAMETERS 


nwrkfl « co 

NFCRFt • 40 

DATA IS WRITTEN ON PAPER EVER^ 10 TIME STEPS 


STARTT • 0.000000 

ENOT » 1 000000 

DELTAT * 010000 

NUMBER Or FORCES APPLIED TO BOOSTER » 4 

NUMBER OF TRUNCATED BOOSTER MOOES • 54 

NUMBER OF INTERFACE DOFS * 36 

INTERPOLATION OF THE FORCE OA T A IS NEEDED t I F T E R r - 0) 


Figure 26, Sample output from subroutine ZFORCE 
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original page is 

OF POOR QUALITY 


zresp tq Shanahan 

PROGRAM ZRESP - sample PROBLEM WITH BOOSTER i. PAVL 1. ANO PAyL 2 
PART Of A COMPLETE BOOSTER -PA v LOAD INTEGRATION SOFTWARE PACKAGE 


40 

20 

5 30 


NPESFL. NWRKFL. NWRITE, NFORFL * 


0. 


0.90 0.01 


STARTT. ENOT. OELTAT • 


0.5 


0.25 


GAMMA. BETA • 


4 

54 

36 36 


NF . NB , I F . NP • 


0 

0 

0 


NOAMPfi.NCAMPI .NOAMPP • 


FRE08T 

0 

- 3 * ZB 00 ST 

• 

TRUNCATEO, CANTILEVERED BOOSTER 

FREQ • 

. .000 



4 

2ETA8 * 


FREQ t 

0 

-322INTF 

• 

INTERFACE FREQUENCIES * 


0.000 



# 

2ETAI - 


FREOPA 

0 

-32ZINTF 

• 

ASSEMBLED PAYLOAD FREQUENCIES * 


0 ooo 




zetap * 


82 

0 

-32ZINTF 


INTERFACE, BOOSTER COUPLING MASS 

MATRIX 

P2 

0 

-322INTF 

W 

INTERFACE. PAYLOAD COUPLING MASS 

MATRIX 

PHI IB 

0 

-32ZINTF 


interface mooes • 


ONBO 

1 

54 

6 

INITIAL BOOSTER DISPLACEMENTS ' 


0000000000 





UNCO 

1 

54 

* 

INITIAL BOOSTER VELOCITIES - 


oooooooooo 





OIB 

1 

36 


INITIAL INTERFACE DISPLACEMENTS 

* 

oooooooooo 





01 BOO 

1 

36 


INITIAL INTERFACE VELOCITIES * 


oooooooooo 





ONPO 

1 

36 


INITIAL Rt.LUAD DISPLLCEMENTS • 


oooooooooo 





ONPDO 

1 

36 


INITIAL PArLOAD VELOCITIES * 


oooooooooo 





STOP 






Figure 

27. Input deck 

to 

program RESPONS 



INPUT PARAMETERS 


NWFILE - 4Q 
NWRKFl • 20 
NFORFL • 30 

DATA IS WRITTEN ON PAPER EVERY 5 TIME STEPS 


STARTT » C OCOOOO 
ENOT « 9C00CC 
DEL T AT • 0tCX>OO 


PARAMETERS FOR NEWMARK-CHAN'BETA INTEGRATION ROUTINE 

GAMMA • 500000 

BETA * 250000 

VALUE OF BOOSTER MODAL DAMPING IS CONSTANT < NOAMPB « q 1 

VALUE OF PAYLOAD MODAL OAMPING IS A CONSTANT ( NPAMPP • 0» 

NUMBER OF FORCES APPLIED TO BOOSTER * 4 

NUMBER OF truncated BOOSTER MODES » 54 

NUMBER OF INTERFACE DOFS * 36 

NUMBER OF TRUNCATED PAyLOAO MOOES ' 36 


Figure 28. Samp 1 © output from subrout ire ZKESP 
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Program LOADS can be used to generate many useful quantities. Using 
the ISELECT option ve can choose an area of study for the body, and by 
choosing PKPSI judiciously, we can generate either elastic forces, member 
load, stresses, strains, etc. For this saaple ve choose to generate 
elastic node forces for the all nodes in payload 1, thus ISELECT • 0 and 
PKSPI • the free stiffness matrix for the structure. The payload non- 
interface dofs are ordered as payload 1 then payload 2, thus NQNPS ■ 1 
for this calculation and NQNP • 12. The input deck to prograa LOADS Is 
given In Figure 29. Subroutine ZLOADS Interprets the Input file, reads 
other Information froa NRESFL and prints it as given in Figure 30. Since 
ve chose MAXL ■ 1, a max /win search then results of this are given In 
Table 12. 

SAMPLE PROBLEM 2 


As stated previously, this sample problem consists of a booster, the 
space shuttle (STS), and tvo payloads; the space telescope (ST) and the 
OMS kit. Various mass, stiffness and modal properties were received from 
NASA, from vhloh all properties necessary to run the payload integration 
software pack can be derived: 


The STS model 

received contained 

759 overall dofs of which 33 are 

interface dofs. 

The following information about this aodel was received: 

( PH ] 

• [TB \ I B 

(759 x 333) 

(MOCB) 

- [PH]T [MJ [PH] 

(333 x 333) 

[KOCBJ 

- [rHjT [K] [PH] 

(333 x 333) 


and the force and time tables [TABF] and [TABT]. From this data it was 
easy to section out or derive the following pro^arties: 

1) the expanded cantilevered modes PAIVBX 

2) the constraint modal matrix - TB 

3) the STS mass and stiff nesa matrices reduced to the interface - 
BM2 and BK2 

4) the STS coupling mass matrix - Bh 

5) the cantilevered frequencies - FRE<<. 

Three hundred booster modes were retained. The force data reduced to L20 
dofs that have non-tero forces. These are listed in Figure 33. Using 
the above data ve have the following input to prograa BOOSTER 

IF - 33, NB - 300, ND *» 759, NF - 120 

NEXP - 1, NTB - 1, NBMK12 - 1, NDET - 0 
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ZLCADS TG SHANAHAN 

PROGRAM ZlOAOS FOR P \ f LOAD 1 


BOOSTER 

1 . 

PAYLOAD 1, 

PAyLOAO 2 SYSTEM 

1 

0 

10 


• MA\L. !SELECT,NWRiTE • 

1 

12 



• NONPS.NONP • 

36 

12 

36 


* IFB.IFP.NP • 

30 

20 

40 4 1 


* NRESPFL .NWRKTl ,NWFILE .NTAPE * 

STIF 

0 

-32PAYL1 


• PA *1040 1 FREE STIFFNESS MATRIX * 

PL 1 

0 

- 3 IP Ay L 1 


. PAYLOAO 1 LOAD TRANSFORMATION * 

PL2 

0 

-31PAVL1 


• PAYLOAD 4 LOAD TRANSFORMATION t 

TP 

0 

•3 1PAYL 1 


* PAYLOAO 1 CONSTRAINT MODAL MATRIX • 

PHI IB 

0 

-33ZINTF 


• interface MODES • 

I VEC 

1 

12 


* VECTOR OF PAYLOAO 1 INTERFACE LOCATIONS 

1 

1 

1 2 

3 

4 5 € 7 8 9 10 

1 

1 1 

1 1 12 




CKX>OOCOOOO 

Figure 29. Input deck to program LOADS 


INPUT PARAMTEPS TO ZLOAOS 

M A x I MUN 'MINI MUM LOAO CALCULATION WILL BE PERFORMED (MAXL * 1) 

ALL ROWS OF PKPSI ARE USEC IN THE LOAD CALCULATION < I SELECT » 0) 

NWRI'E * 10 

THE NUMBER OF INTERFACE OOFS IN THIS °1YLQAD = 12 

THE ROW NUMBER OF THE FIRST NON- INTERFACE DOF FOR THIS PAYLOAD IN THE BOOSTER * 
THE NUMBER OF NON- INTERFACE DOFS IN THIS d Ay lOAO * 12 

THE NUMBER OF INTERFACE DOFS IN THE BOOSTER * 36 

THE TOTAL NUMBER OF PAYLOAD MOOES RETAINED « 36 


NRESPFI. * 

30 

NWRKFL * 

20 

NWFUE * 

40 

NT APE = 

4 1 


PAYLOAD LOADS 


FOR THE time interval of 
STARTT - o oooooo 

ENDT * 900000 

CELTAT » 010000 

Figure 30. Sample output from subroutine ZLOADS 
for sample problem 1 
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MAXIMUM AND MINIMUM LOADS 


FORM MAXIMUM , TIME AT MAXIMUM. MINIMUM. TIME AT MINIMUM 


MAX MIN ( 24 X 4 ) /OUTPUT/ 




< 1 > 

( 2 1 

( 3 > 

( 4 ) 

1 

1 

8 085E+01 

8.900E-01 

-7 . 388E+0 1 

4 500E-01 

2 

1 

1 . 324E+02 

9 OOOE-Oi 

*1 278E03 

5.200E-01 

3 

1 

7.790E+01 

4 90OE-01 

-2.439E-02 

3. OOOE -02 

4 

1 

i 978E+02 

5. 300E-01 

- 1 . 382E+01 

9 OOOE -02 

5 

1 

2 . 163E+01 

9 000E-02 

-1 . 405E+03 

5.300E-01 

6 

1 

9 5S2E+00 

9.000E-02 

-4 . 443E+01 

5.400E-01 

T 

1 

2.715E+00 

5 900E-01 

-2 998E+00 

6. "T>E-01 

3 

i 

2 612E+00 

9.0O0E-01 

- 1 . 855E+00 

5.400E-01 

9 


3.529E-Q2 

3.000E-02 

-2 706E+01 

4 .90OE-01 

10 

1 

7 956E+01 

4.700E-01 

-8 . 202E+0 1 

9 . OOOE -0 1 

1 < 

1 

1 210E+03 

5. 200E-01 

- 1 . 4S5E+02 

9 . OOOE -0 1 

12 

i 

8.983E+01 

5.000E-01 

-3 448E-02 

3 . OOOE -02 

13 

1 

1 . 352E+01 

9.00CE-02 

*1 . 894E+02 

5.400E-01 

14 

1 

1 473E+03 

5.300E-01 

* 2 . 059E+0 1 

9 . OOOE -02 

15 

1 

1 666E+01 

8. 100E-01 

-3. 379E+01 

5.3OOE-01 

16 

1 

2.31 1E+00 

6.300E-01 

-2.344E+00 

6. 100E-01 

1 7 

i 

2 454E+00 

9.0OOE-01 

- 1 . 652E+00 

4.400E-01 

19 

1 

3.887E-02 

3.0O0E-02 

-2.5777+01 

4 90OE-01 

19 

1 

2.424E+0O 

5 . 90OE *01 

- 2 . 363E+00 

8.800E-01 

20 

1 

2.060E^D0 

8 500E-01 

-1 . 762E+00 

4 20OE-01 

21 

1 

3. 167E-02 

3.000E-02 

-2.561E+01 

4.900E-01 

22 

1 

2.916E+00 

5.900E-01 

-2 . 903 E +00 

6. 10CE-01 

23 

i 

1 . 876E+0O 

8 900E-01 

- 4 .636E+00 

4 . 20GE -0 1 

24 

i 

3. 90 IE -02 

3 . OOOE '02 

- 2 . 7 1 8E+01 

4.900E-01 


END OF WRITE. 


Table 12. 


Max/Min elastic forces for Sample 
problem 1 . Output from program ZLOADS 


71 



ORIGINAL FACE to 
OF POOR QUA- T 


ZEOOST TG SHANAHAN 

PROGRAM ZBOOST FOR STS 
PART OF PAYLOAD INTEGRATION 
33 300 759 120 

40 20 1 

1110 
PHINB 0 -3OB0SGEN 

NODOR 0 -32N0D00F 

TB 0 -3OB0SGEN 

BM 1 0 -3OB0SGEN 

BM2 0 - 3OB0SGEN 

BK2 0 -30BOSGEN 

FRE0B2 0 -3180SGEN 

STOP 


MFSC MODEL 
SOFTWARE PACKAGE 

- IF.NB.ND.NF * 

* NWF I LE , NWRKFL . NWRITE - 

* NEXP , NTB . NBMK 1 2 . NDET - 

- EXPANDED CANTILEVERED BOOSTER MODES 

* VECTOR OF FORCE LOCATIONS ■ 

* CONSTRAINT MODAL MATRIX • 

* BOOSTER COUPLING MASS MATRIX - 

* BOOSTER INTERFACE MASS MATRIX * 

* BOOSTER COUPLING STIFFNESS MATRIX * 

* BOOSTER CANTILEVERED FREQUENCIES ’ 


Figure 31. Input deck to program BOOSTER 


INPUT VARIABLES TO ZBOOST 


NWFILE = 40 
NWRKFL * 20 
NWRITE = 1 


DESCRIPTION OF BOOSTER 


NUMBER OF BOOSTER DOFS * 
NUMBER OF BOOSTER INTERFACE DOFS = 
NUMBER OF TRUNCATEO BOOSTER MODES RETAINED » 
NUMBER OF FORCES APPLIED TO THE BOOSTER * 


THE MODES ARE EXPANDED TO INCLUDE INTERFACE DOFS 
TB * THE CONSTRAINT MODAL MATRIX IS GIVEN 
BM1. BM2 . AND BK2 ARE AVAILABLE 


759 

NO * 

^59 

33 

IF * 

33 

300 

NB * 

300 

120 

NF * 

120 


(NEXP * 

1 ) 


, NTB * 1 

) 


( NBMK 1 2 

a 1 ) 


THE INTERFACE IS NOT DETERMINANT 


1NDET * 0) 


Figure 32. Sample output from subroutine ZBOOST 
for 'che Space Shuttle (STS) 


72 



uriiGINAL SS 
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ORIGINAL PAGE K* 
OF POOR OJA ' ry 


A listing of the input file to program BOOSTER is given in Figure 31, and 
the program interpretation is given in Figure 32. Subroutine ZBOOST 
processes these quantities and output the matrices as listed in Table 13. 


RUN NO ZEOOST 


PROGRAM ZBOOST FOR STS MF$C MODEL 
PART OF FAYLOAD INTEGRATION SOFTWARE PACKAGE 


listing OF MATRICES ON LOGICAL UNIT 40 


NO. 

RUN NO 

NAME 

NROWS 

NCOLS 

DATE 

DENSITY 

1 

ZBOOST 

PH T NB 

759 

300 

1 1SE82 

100% 

2 

ZBOOST 

TB 

759 

33 

1 1SE82 

88% 

3 

ZBOOST 

PHINBR 

120 

300 

1 1SE92 

100% 

4 

ZBOOST 

FREQBT 

t 

300 

1 1SE92 

too;; 

5 

ZBOOST 

TBR 

120 

33 

11SE82 

100% 

6 

ZBOOST 

BM1 

33 

300 

1 1SE82 

100 7. 

7 

ZBOOST 

EM2 

^3 

33 

1 1SES2 

100*'. 

8 

ZBOOST 

6K2 

33 

33 

1 1SE82 

100% 


Table 13. Listing of matrices output from subroutine 
ZBOOST for the Space Shuttle 
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ORIGINAL PAGE IS 
OF POOR QUALITY 

The space telescope modal contains 214 dofs of which 6 are interface 
dofs, 175 cantilevered payload modes were retained. The following 
, Information was received from NASA: 

free mass matrix (214 x 214) 

free stiffness matrix (214 x 214) 

the interface expanded cantilevered modes (214 x 175) 

the constrain modal matrix (214 x 6) 

the cantilevered frequencies (175) 

In order to couple these properties with the booster it was necessary 
to reverse the direction of one of the interface dofs. This altered the 
free mass and stiffness matrices. Also, note that the interface is 
determinate (i.e. the number of Interface dofs is less than or equal to 
the number of rigid body dofs). The Interface consists of dofs 1, 2, 3, 
4, 5 and 6. Thus, the inputs to program PAYLOAD for the space telescope 
are : 

IF - 6, NP - 175, ND - 214 

NEXP » 1, NATP - 0, NPMK12 - 0, NDET - 1, 

NLOAD - 0, NEP - 0, 

IFACE - dofs 1, 2, 3, 4, 5, 6 

A listing of the input deck to this program is given in Figure 34. This 
data is interpreted and echoed back by subroutine ZPAYL as shown in 
Figure 35. Also, a listing of the output matrices from this subroutine 
is given in Table 14 . Note that since the interface is determinate 
PK2 - 0. 


LISTING OF MATRICES ON LOGICAL UNIT 40 


NO. 

RUN NO 

NAME 

NROWS 

NC0LS 

DATE 

density 

1 

ZPAYL 

PHINP 

214 

175 

1 1SE82 

100% 

2 

ZPAYL 

FREOPT 

1 

175 

1 1SE82 

100% 

3 

ZPAYL 

TP 

214 

6 

1 1SE82 

12% 

4 

ZPAYL 

PM 1 

6 

175 

1 1SE82 

100% 

5 

ZPAYL 

PM2 

6 

6 

1 1 5E82 

100% 

6 

ZPAr'L 

PK2 

6 

6 

1 1SE82 

0% 

7 

ZPAYL 

PL 1 

214 

175 

1 1SE82 

100% 

8 

ZPAYL 

PL2 

214 

6 

1 1SE82 

icor 


Table 14. Listing of the matrices output by subroutine 
ZPAYL for the Space Telescope 
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ORIGINAL FAGi 13 
OF POOR QUALITY 


ZPAYL TG SHANAHAN 

PROGRAM ZPAYL FOR THE SPACE TELESCOPE 


PART OF 

PAYLOAD INTEGRATION 

SOFTWARE 

PACKAGE 

6 

175 

2 14 



IF.NP.ND • 

40 

20 

1 


• 

NWFILE. NWRKFL. NWRITE - 

1 

0 

0 1 

0 

0 

NEXP , NTP , NPMK 1 2 . NDET . NL0AD . NEP 

PHIEXP 

0 

-30STDATA 


« 

EXPANDED CAMtEVERED l -CES • 

iface 

1 

6 


• 

VECTOR OF IM~:RFACE DOFS • 

1 1 
oooooooooo 

1 2 

3 

4 5 

6 

MREV 

0 

-30STDAT A 


• 

FREE MASS • 

KREV 

0 

-30STDATA 


• 

FREE STIFFNESS - 

FREO 

STOP 

0 

-30STDATA 


* 

CANILEVEREO FREQUENCIES • 


Figure 34. Input deck to program PAYLOAD 
for the Space Telescope (ST) 


INPUT VARIABLES TO ZPAYL 


NWFILE * 40 
NWRKFL * 20 
NWRITE * 1 


DESCRIPTION OF PA/lOAD 



NUMBER 

OF payloao DO c S * 

214 

NO - 

214 

NUMBER OF 

payload 

INTERFACE OOFS * 

6 

IF = 

6 

NUMBER OF TRUNCATED 

payload 

MODES RETAINED * 

175 

NP * 

175 


THE MODES ARE EXPANDED TO INCLUDE IN T ERF ACE DOFS 
TP. PM1. PM2. AND PK2 ARE NOT GIVEN 
THE INTERFACE IS DETERMINANT 
THE LOAD TRANSFORMATIONS PL 1 AND PL2 ARE NOT 'IVEN 
THE CANTILEVERED FLEXIBILITY - E° IS NOT GIVEN 


(NEXP * 1 ) 

Nrp * o ) 

I NDET * 1 ) 

(NLCAD * 0) 
(NEP • o: 


Figure 35 Sample output form subroutine ZPAYL 
for the Space Telescope (ST) 
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For the OMS kit, the free mass and stiffness matrices and a matrix 
map telling Interface locations were received. From this Information the 
Interface cantilevered modes and frequencies were calculated. In total, 
the model contained 36 dofs of which 7 are Interface dofs. Thus, with 
this bare minimum Information about the OHS Kit, we were able to run the 
payload program. As Inputs we have IF “7, NP • 14 (only 14 cantilevered 
modes were to be retained and ND - 36. The Input deck to program PAYLOAD 
for the OMS kit Is given In Figure 36. and the program echoed it as in Figure 37. 
'The output matrices are listed in Table 15. 

Using the output for these three previous runs construction of the 
input deck to program ZINTF as shown In Figure 38 Is quite simple. We 
know there are two payloads (NPAY - 2} and 189 total payload modes 
(NP + NPgf + NPqms KIT “ 175 + 14). The IFACEP vectors were 
generated from Table 16. Figures 39 show how subroutine ZINTF 
interpreted the data deck and Table 17 lists the output matrices and 
their sizes. 

The force/time history for the forcing function was transmitted via 
three matrixes: 


1) 

TABT - 

table 

of break point times 



(1741 

x 1) 

2) 

TABF - 

table 

of forces 



(1741 

x 185) 

3) 

IDFORM - 

table 

of force locations 


(185 x 1) 

TABF gives the time/force history. The 1741 rows each correspond to the 
time listed for the same element in matrix TABT. Each column of TABF 
correspouds to a location that Is described by the appropriate element of 
matrix IDFORM. Each element of IDFORM contained a four digit integer 
number. The first three digits told the node number to which the force 
was to be applied, the last digit specified the direction. For example: 

IDFORM (J) - 8583 


means force number J is applied at node 858 in the 3 or z-direction. 
Using a provided matrix map of the STS model it was then possible to 
determine the degree of freedom number to which the force was to be 
applied. Careful inspection of IDFORM revealed that in several cases 
more chan one force was to be applied to a particular degree of freedom. 
Thus, these forces were superimposed and resolved into one force vector. 
After processing this d -a, 120 independent force vectors remained. The 
forces were then arranged in order of increasing dof n.iuber which 
resulted in the NFORCE vector listed in Figure 33. Thus, the following 
matrices wero input to program FORCE: 


TABT 3 
TABF3 
PHINBR 

TBR 


time vector 
force table 

reduced, truncated, cantilevered 
booster modes 

booster constraint modal matrix 


(1741 x 1) 
(1741 x 185) 

(185 x 300) 
(185 x 33) 
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ORIGINAL FACL l* 
OF POOR QUALITY 


Zr AYL TG SHANAHAN 

PROGRAM ZPAYL FOR THE OMS KIT 
PART OF PAYLOAD INTEGRATION SOFTWARE 


14 

20 

0 

0 

1 


7 

40 

0 

PH I OMS 
I F ACE 
1 

0000000000 
MSSOMS 0 
ST F QMS 0 

FRCOMS 0 
STOP 


36 

1 

0 • 0 
-30EGVL1 

1 3 

-30EGVL1 
-30EGVL 1 
-30EGVL1 


PACKAGE 
IF.NP.ND * 

NWriLE .NWRKFL .NWRITE • 

NEXP,F TP , NPMK 1 2 . NOET , NLOA0 , NEP * 
NON-EXPANDED CANILEVERED MODES • 
VECTOR OF INTERFACE DOFS • 

12 14 

FREE MASS * 

FREE STIFFNESS • 

CANILEVERED FREQUENCIES * 


Figure 36. Input deck to program PAYLOAD 
for the OMS Kit 


INPUT VARIABLES TO ZPAYL 


NWFILE * 40 
NWRKFL = 20 
NWRITE * 1 


DESCRIPTION OF P A ' LOAD 


NUMBER OF PAYLOAD DOFS * 
NUMBER OF PA i LOAD INTERFACE DOFS * 
NUMBER OF TRUNCATED PAYLOAD MOOES RETAINED * 

THE MODES ARE NOT EXPANDED TO INCLUDE INTERFACE OOFS 
TP, PM1, PM2 , AND PK2 ARE NOT GIVEN 
THE INTERFACE IS NOT DE TFRMINANT 
THE LOAD TRANSFORMATIONS PL 1 AND PL2 ARE NOT GIVEN 
THE CANTILEVERED FLEXIBILITY - EP IS NOT GIVEN 


36 

NO 

* 36 

- 

IF 

• 7 

14 

NP 

* 14 


(NEXP 

- 0) 


NTP * 

0) 


1 NOET 

« 0) 


( NLOAD 

• r ; 


(NEP « 

o» 


Figure 37* Sample output from subroutine ZP/YL 
for the OMS Kit 
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STS 

(BOOSTER) 

Interface Overall 
dof no dof no 


ST 

'PAYLOAD 1) 
Interface Overall 
dof no dof no 


QMS KIT 
(FAYLOAD 2) 
Interface Overall 
dof no dof no 


1 

385 

2 

387 

3 

390 

4 

392 

5 

395 

6 

397 

7 

400 

8 

402 

9 

405 

\0 

407 

xl 

410 

12 

412 

13 

415 

14 

417 

15 

420 

16 

422 

17 

425 

18 

427 

19 

430 

20 

432 

21 

435 

22 

437 

23 

440 

24 

442 

25 

445 

26 

447 

27 

450 

28 

452 

29 

456 

30 

459 

31 

462 

32 

465 

33 

468 


1 1 

2 3 

1 6 


4 7 

5 9 

6 12 


7 14 


Table 16. Listing vf Interface for ST-STS-OMS Kit Model 
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ORDINAL PAQ£ i8 
OF POOR QUALITY 



LISTING OF MATRICES ON 

LOGICAL 

UNIT 40 


NO 

RUN NO 

NAME 

NROVS 

NCCLS 

DATE 

density 

1 

ZPAYL 

PHINP 

29 

29 

11SE82 

100% 

2 

ZPAYL 

FREQPT 

1 

1 4 

1 SE82 

100/, 

3 

ZPAYL 

T P 

36 

7 

11SE82 

100% 

4 

ZPAYL 

PM 1 

* 

14 

11SE82 

100% 

5 

ZPAYL 

PM2 

7 

7 

i 1SE82 

100% 

6 

Z°A > L 

PK2 

7 

7 

11SE92 

100/ 

7 

ZPAYL 

PL 1 

36 

14 

1 1SE82 

100% 

8 

ZPA/L 

PL2 

36 

7 

11SE82 

loo*' 


Table 15. Listing of the matrices output by subroutine 
ZPAYL for the OHS Kit 



listing of matrices on 

LOGICAL 

UNIT 40 


NO. 

run mo 

NAME 

NROWS 

NCOLS 

DATE 

DENSI 

1 

ZINTF 

FREOI 

1 

33 

1 1SE92 

100% 

2 

ZINTF 

82 

33 

300 

1 1SE82 

100% 

3 

ZINTF 

P2 

33 

189 

1 1SE82 

100% 

4 

ZINTF 

BPM2 

33 

33 

1 1SE92 

100% 

3 

ZINTF 

8PK2 

33 

33 

1 1 SE82 

100% 

6 

ZINTF 

PHIIB 

33 

33 

1 1SE82 

100% 

7 

ZINTF 

freqpa 

4 

189 

1 1SE82 

100% 


Table 1“*, Listing of the matrices output by subroutine 
ZINTF for tli" ST-STS-OMS Kit system 
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ORIGINAL P.-^i | j 
OF POOR QUALITY 


ZINTF TG SHANAHAN 


PROGRAM 

ZINTF FOR TH$ 

ST -STS 


QMS KIT MODEL 

PART OF 

PAYLOAD INTEGRATION 

SOFTWARE PACKAGE 

2 





NPAY • 

40 

10 

1 



NWFILE,NWRKFL.NWRITE » 

33 

189 




I FB , NPTQT * 

BW1 

0 

* 3OZBQ0ST 



shuttle coupling mass MATRIY • 

BM2 

0 

-30ZB00ST 



shuttle mass matrix reduced to interface 

BK.2 

0 

~ 3OZB00ST 



SHUTTLE STIFFNESS REDUCED TO INTERFACE • 

6 

175 




IFP.NP - FOR THE S?ACE TELESCOPE - 

IFACEP 

1 

S 



VECTOR OF $T INTERFACE DOFS • 

1 

1 

IS 22 

21 


8 7 31 

oooooooooo 





PM 1 

0 

- 3 i ZP A Y L 



ST COUPLING MASS MATRIX • 

PM2 

0 

-31ZPAYL 



3T MASS MATRRIX REDUCED TO INTERFACE * 

PK2 

0 

-31ZPAYL 



ST STIFFNESS REDUCED TO INTERFACE * 

FREOPT 

0 

-31ZPAVL 



ST TRUNCATED. CANTILEVERED FREQUENCIES - 

? 

14 




IFP. NP FOR QMS KIT • 

IFACEP 

1 

7 



VECTOR OF QMS KIT INTERFACE DOFS * 

1 

1 

1 1 12 

14 

25 26 29 33 

OOOOOOOOOO 





PM 1 

0 

-32ZPAYL 


* 

OMS KIT COUPLING MASS MATRIX * 

PM2 

0 

- 32Z P A y L 


• 

QMS KIT M*SS MATRIX REDUCED TO INTERFACE 

PK2 

0 

-322PAa 



OMS KIT STIFFNESS REDUCED TO INTERFACE * 

FREOPT 

0 

•32ZPAYL 


* 

QMS KIT TRUNCATED. C ANT 1 1 fn'ERED FREQ * 


STOP 

Figure 38* Input deck to program INTFACE 
for the ST-STS-OMS KJt system 
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ORIGINAL PAGE IS 
OF POOR QUALITY 

INPUT DATA TO ZINTF 



nwfile 

* 

40 



NVRKFL 

* 

10 



NVRITE 

s 

1 


NUMBER ~F BOOSTER 

INTERFACE DOFS 

= 

33 

( IFB « 

NUMBER OF TOTAL PAYLOAD 

MODES RETAINED 

= 

189 

(NPTQT 


INPUT DATA FOR THE 2 PAY LOADS 


INPUT DATA FOR PAYLOAD 1 

NUMBER OF PAYLOAD INTERFACE DOFS « 6 

NUMBER OF PAYLOAD TRUNCATED MODES USED = 175 

IVEC OF PAYLOAD INTERFACE DOF LOCATIONS IN THE BOOSTER INTERr AcE 


IFACEP 1 IX 6 > 

' INPUT/ 



• VECTOR CF ST INTERFACE DOFS 

1 1 18 22 

2 1 8 

7 

31 


END OF READIM. 


* * * * i 




INPUT DATA FOR PAYLOAD 2 

NUM3ER O c PA Y LO ‘ D INTERFACE DOFS = 7 

NUMBER OF PAYLOAD TRUNCATED MODES USED * 14 

IVEC OF PAYLOAD INTER e ACE OOF LOCATIONS IN THE BOCSTER INTERFACE 


IF ACEP 
1 

ENO OF READ I M 


< 7 ) 

' INPUT ' 



• VECTOR OF OMS KIT INTERFACE DOFS 

11 12 

1 4 25 

26 

28 

33 


Figure 39. Sample output from subroutine ZINTF 
for the ST-STS-OMS Kit system 


82 


along with the constants NF ■ 120, NB ■ 300 end IF • 33. Figure 40 
shows the Input deck to prog ran FORCE and its interpretation Is listed 
in Figure 41. This resultant data is written on NFORFL sequentially, 
resulting in relatively fast and easy use in the response program. 

Using the quantities calculated in these previous programs, we then 
ran the response program. The input deck to program RES PONS is given in 
Figure 42 . The time interval of interest is t ■ 0.0 seconds to t ■ 10.0 
seconds. The initial conditions were calculated by solving the response 
•ouation at time ■ 0.0 seconds with the velocities, elastic accelerations 
and the rigid body displacements equal to zero. Thereby, calculating the 
rigid body accelerations and elastic displacements. The results of this 
response run were then used with an acceleration transformation matrix 
(ATM), provided by NASA, to calculate the discrete accelerations of the 
space telescope. Figure 43 shows how subroutine ZRESP interpretes this 
input deck. 


ZFORCE TC SHANAHAN 

PROGRAM ZFORCE FOR THE SPACE SHUTTLE M0DEI (MSFC MODEL) 

PART OF A COMPLETE BOOSTER-PAYLOAD INTEGRATION SOFTWARE PACKAGE 
20 25 40 

0. 10.0 0.005 

120 300 33 

0 

TABT3 0 -30STREV 

TABF3 0 -30STREV 

PHINBR 0 -31ZB0OST 

TBR 0 -31ZB00ST 

STOP 

Figure 40. Input deck to program FORCE 
for the Space Shuttle 
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INPUT PARAMETERS 


NWWKFl - ?0 

NT PRFl. * 40 

DA r A IS WRlli»N ON PAPER rVFRY 2S TIKE STFPS 

SIARH ’ O OOOOOO 

fNOI * U)AKK*JOO 

OF I I A I « OrbfXK) 

NUMBER 01 MiP'IS APPLIED TO BOOSTFR * t20 

MUMTrP Of UUNCATFO BOOSTER MOi)lS * 300 

NUM-.FR OF INTFRFACE DOFS « 33 

INTERPOL A MOM » l ME FORCF DATA IS NEEDED I IF T ERP > O) 


Figure 41. Sample output from subroutine ZFORCE 
for the Space Shuttle 
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ORIGINAL PhCS '.3 
OF POOR QUALITY 


ZRESP TG SHANAHAN 

PROGRAM ZRESP FOR $T-$TS-OM$ KIT MOOELS 

PART OF A COMPLETE BOOSTER -PA * LOAD INTEGRATION SOFTWARE PACKAGE 


40 

20 

1 30 


0- 


1C.0 0.005 


0 

5 

0-25 


120 

300 

33 139 


0 

0 

0 


FREQBT 

0 

-31Z80QST 


0.01 




FREOI 

0 

-32ZINTF 


0.01 




FREOPA 

0 

-32ZINTF 


o.ot 




82 

0 

-32ZINTF 


P 2 

0 

-32ZINTF 


PHI IB 

0 

-32ZINTF 


ONBO 

0 

33STINTL 


ONBDC 

1 

300 


OOOOOCOOOO 



oteo 

0 

33S1 I NIL 


qibdo 

1 

33 


COOOOOOOOO 



ONPO 

0 

33STINTL 


ONPCO 

1 

1S9 


OOOOOCOOOO 



STOP 





nwfile.nwrkfl.nwrite.nforfl * 

STARTT .ENOT.CELTAT * 

GAMMA. BETA • 

NF.NB.IF.NP * 

N0AMP8.NCAMPI .NOAMPP « 

BOOSTER TRUNCATED. CANTILEVERED FREO 
ZETA8 • 

INTERFACE FREQUENCIES * 

ZETAI * 

ASSEMBLED PAYLOAO FREQUENCIES * 

2ETAP • 

INTERFACE/BOOSTER COUPLING MASS MAT 
INTERFACE, PAYLOAD COUPLING STIFFNESS 
INTERFACE MODES * 

INITIAL BOOSTER DISPLACEMENTS - 
INITIAL BOOSTER VELOCITIES * 

INITIAL INTERFACE DISPLACEMENTS - 
INITIAL INTERFACE VELOCITIES - 

INITIAL PAYLOAD DISPLACEMENTS • 
INITIAL PAYLOAD VELOCITIES * 


Figure 42. Input deck to program RESPONS 
for the ST-STS-OMS Kit system 


INPUT PARAMETERS 


NWFIIE * do 
NWRKFL « 20 
NFORFL * 30 

DATA IS WRITTEN ON PAPER EVERY t TIME STEPS 


START! = 0.000000 

ENDT * 10.000000 
DEL TAT * 005000 


parameters for newmark-chan-beta integration ROUTINE 

GAMMA * 500000 

BETA - 250000 

VALUE OF BOOSTER MOuAL damping is CONSTANT ( noampb * 0) 
VALUE OF PA /LOAD MODAL DAMPING IS A CONSTANT INDAMPP = Ol 

NUMBER OF FORCES APPLIED TO BOOSTER * 120 

NUMBER OF TRUNCATED BOOSTER MODES * 300 

NUMBER OF INtEPF AC I OOFS * 33 

NUMBER OF TRUNCATED PAYLOAD MODES * 139 

Figure 43. Semple output from subroutine ZRESP 
fo*. the ST-STS-OMS Kit system 
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We also implemented the short-cut version which is based on a base 
drive or open loop technique and was explained in section 5 of Chapter 1. 


First, a new program must be developed in order to solve Equations 
(24) through Equations (25-30). This program is calledZSCBRES and is 
listed in section 6 of Chapter II. Its use is very similar to that of 
ZRESP and it is believed .that enough comment cards are Included so that 
the user should be able to apply it without difficulty. The Input deck 
is described in Figure 44. Note that we used discrete interface displacements. 
This Input deck is echoed by program Z SC ERE S as shown in Figure 45. 


The other change is the creation of a new response routineZSCPRES. 
Here we used interface modes [^®] which is not a requirement, but the 
user should be aware that in the present version these interface modes 
are used. The Input deck to subroutineZSCPRES is illustrated in Figure 
46 and its interpretation is shewn in Figure 47. The results for some 
test problems are discussed in section 3 of Chapter IV of the Final Report. 


ZSCBRES TG SHANAHAN 

SHORT CUT NOMINAL BOOSTER RESPONSE WITHOUT PAYLOADS FOR BOOSTER 1 
OUTPUT TO BE USED IN DIRECT OR COUPLEO BASE DRIVE ROUTINE 


40 

10 

25 30 

♦ 

NWF ILE . NWRKFL , NWRITE . NFORFL • 

0. 

o. 

9 C. . 

• 

startt.endt.deltat • 

0.5 

0. 

25 

• 

GAMMA. BET A • 

0 

4 

54 3fi 

• 

NDAMPB , NF , NB , I F • 

FREOBT 

0 

-31Z80 

* 

TRUNCATED. CANTILEVERED BOSTER FREO • 

0.0 



* 

z:tab • 

BM 1 

0 

- 3 1 ZBOOST 

• 

BOOSTER/INTERFACE COUPLING MASS MAT • 

BM2 

0 

- 3 1 ZBOOST 

• 

BOOSTER MASS REDUCED TO THE INTERFACE * 

6K2 

0 

- 3 1 ZBOOST 

* 

BOOSTER STIFFNESS REDUCED TO INTERFACE * 

QNSO 

1 

54 

* 

INITIAL BOOSTER NON- 1 F ACE MODAL DI5P • 

OOOOOOOOOO 




ONBOO 

1 


• 

INITIAL BOOSTER NON-IACE MODAL VEL • 

OOOOOOOOOO 




X I BO 

1 

36 

• 

INITIAL INTERFACE DISCRETE OISP • 

OOOOOOOOOO 




XI BOO 

1 

36 

a 

INITIAL INTERFACE DEISCRETE VELOCITIES • 

OOOOOOOOOO 




STOP 





Figure 44. 

Input deck to 

programZSCBBES 


Of QOAUsY 
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INPUT PARAMETERS 


ORIGINAL PAGZ & 
OF POOR QUALITY 


NWFILE - 40 
NWRKFL - 10 
NFORFL * 30 

DATA IS WRITTEN ON PAPER EVERY 25 TIME STEPS 


STARTT * 0.00000 0 

ENDT » .900000 

DELTAT * .010000 


PARAMETERS FOR NEWMARK -CHAN - BETA INTEGRATION kCJTINE 

GAMMA * .500000 

BETA « .250000 

VALUE OF BOOSTER MODAL DAMPING IS CONSTANT (NDAMPB - 0) 

NUMBER OF FORCES APPLIED TO BOOSTER - 4 

NUMBER OF TRUNCATED BOOSTER MODES - 54 

NUMBER OF INTERFACE DOFS » 36 


Figure 45, Sample output from subroutine ZSCBRES 
for sample problem 1 


2SCPRES TG SHANAHAN 

PROGRAM SCPRES * SHORT CUT RESPONSE VARYING BETWEEN A OIRECT BASE 


DRIVE AND A 

COUPLED BASE DRIVE FOR BOOSTER 1, PAYL 1. PAYL 2 SYSTEM 

40 

20 

25 30 

* 

NWFILE. NWRKFL. NWRITE , NRESOFL • 

0. 


0-9 0.01 

* 

STARTT. ENOT. DELTAT • 

0.5 


0.25 

• 

GAMMA, 8ETA • 

1 .0 



• 

EPSILON • 

4 

54 

36 36 

• 

NF , NB , IF , NP • 

0 

0 

0 

• 

NOAMPB .NOAMP I .NOAMPP • 

FREOBT 

0 

-31ZB00ST 

• 

TRUNCATED. CANTILEVERED BOOST w R FREO • 

0.00 



• 

ZETAB • 

FREOI 

0 

-32ZINTF 

* 

INTERFACE FREQUENCIES * 

0.00 



• 

ZETAI • 

FRF^PA 

0 

-32ZINTF 

• 

ASSEMBLED, TRUNC , CANT PAYLOAD FREQ • 

o 00 



• 

ZETAP • 


0 

- 32ZINTF 

• 

BOOSTER/INTERFACE COUPLING MASS MAT ♦ 


0 

-32ZINTF 

• 

PAYLOAD/INTERFACE COUPLING MASS MAT • 


0 

-33ZB00ST 

• 

BOOSTER MASS REDUCED TO INTERFACE * 

BK2 

0 

-33ZB00ST 

• 

BOOSTER STIFF REDUCED TO INTERFACE • 

BPM2 

0 

- 32ZINTF 

• 

80OS T EP/PAYL0A0 COUPLING MASS MATRIX • 

BPK2 

0 

- 32LINTF 

• 

POOSTER/PAYLOAD COUPLING STIFFNESS • 

PHI IB 

0 

- 32ZINTF 

• 

INTERFACE MOOES • 

ONPO 

1 

36 

• 

INITIAL PAYLOAD MODAL 0 I SPLACEMENTS • 

0000000000 




ONPDO 

1 

36 

• 

INITIAL PAYLOAD MODAL VELOCITIES • 

OOOOOOOOOO 




STOP 





figure 46. 

Input deck to 

program Z SCPRES 
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ORIGINAL PACi£ IS 
OF POOR QUALITY 


INPUT PARAMETERS 


NWFILE • 40 

NWRKFL • 20 

NRESOFt • 30 

DATA IS WRITTEN ON PAPER EVERY 25 TIME STEPS 


STARTT « 0-000000 

ENOT » .900000 

DELTAT « .010000 


PARAMETERS FOR NEWMARK-CHAN-BETA INTEGRATION ROUTINE 

GAMMA « . 500000 

BETA - .250000 

VALUE OF BOOSTER MODAL DAMPING IS CONSTANT (NDAMPB • 1) 

VALUE OF PAYLOAD MODAL DAMPING IS A CONSTANT (NOAMPP « 1) 

NUMBER OF FORCES APPLIED TO BOOSTER * 4 

NUMBER OF TRUNCATED BOOSTER MODES « 54 

NUMBER OF INTERFACE DOFS * 36 

NUMBER OF TRUNCATED PAYLOAD MOOES * 36 


Figure 47. Sample outpuc from subroutine ZSCIRES 
for sample problem 1 
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6. LISTINGS 


First, we list the 6 major programs : 


BOOSTER 

PAYLOAD 

INTFACE 

RESPONS 

FORCE 

LOADS 

Then, we list the short-cut routines : 


ZSCBRES 

ZSCPRES 


Fiually, we also list the special purpose subroutines. 


ZABDI 

ZMULTCD 

ZMULTDD 

ZTER? 

ZTERP1 

ZTOSEQ2 

ZT0SEQ3 
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ooooooooooooooooooooooooooooooooooo nooooooooooooo 


c 

c 


PROGRAM BOOSTER ( INPUT , OUTPUT , TAPE5= INPUT , TAPE6=0UTPUT , 
+ TAPE20 , TAPE30 ,TAPE31 , TAPE32 , TAPE40) 


1 CALL START 





CALL 

TIMCHK 

( 6HTBEGIN ) 

CALL ZBOOST 

CALL 

TIMCHK 

( 6HZB00ST ) 


CALL 

TIMCHK 

( 6HZB00ST ) 

GO TO 1 
END 

CALL 

TIMCHK 

(6HTPRINT) 


************** 
* * 

* ZBOOST * 

* * 
***** 4 ******** 


INAL PAS®J® 

OOR QUALITY 


SUBROUTINE ZBOOST 

SUBROUTINE ZBOOST PRODUCES ALL BOOSTER RELATED INPUT DATA 
NECESSARY TO RUN PROGRAM INTFACE. 

DEVELOPED BY RC ENGELS AND TG SHANAHAN , FEBRUARY 1981. 
COMMENTS 


1. SUBROUTINE ZBOOST IS PART OF A COMPLETE BOOSTER/PAYLOAD 
INTEGRATION SOFTWARE PACKAGE USING A DIRECT NUMERICAL 
INTEGRATION TECHNIQUE. A DISCUSSION OF THIS TECHNIQUE CAN 
BE FOUND IN "STRUCTURAL DYNAMICS PAYLOAD LOADS ESTIMATES 
FINAL REPORT, JUNE 1982". *,.50, A USER GUIDE IS CQNTIAINED 

IN “STRUCTURAL DYNAMICS PAYLOAD LOADS ESTIMATES - USER 
GUIDE, JUNE 1982". 


2. THE FOLLOWING DATA IS °UT ON NWFI .. 

-BK2 = TBT *BK*TB . BOOSTER STIFFNESS MATRIX REDUCED TO 

INTERFACE. IF THE INTERFACE IS 
DETERMINE THEN BK2 = 0 . SIZE I IF , IF ) . 

-BM1 = TBT *BM* IB*PHINB . BOOSTER COUPLiNG MASS MATRIX 

BETWEEN INTER C ACE AND NON- INTERFACE DOFS. 

SIZE (IF.NB). 

-BM2 = TBT *BM*TB . BOOSTER MASS MATRIX REDUCED TO THE 

INTERFACE. SIZE (IF, IF). 

-FREQBT = TRUNCATED CANTILEVERED BOOSTER FREQUENCY ICTbr 
SIZE M,NB>. 

-PHINER = THE INTERFACE EXPANDED SET OF TRUNCATED 
CANTILEVERED BOOSTER MODES WHERE ROWS 
CORRESPONDING TO ZERO APPLIED FORCES ARE DELETED 
SIZE INF.NB) . 

-T8R = THE CONSTRAINT MODAL MATRIX WHERE ROWS 
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ROWS CORRESPONDING TO ZERO APPLIED FORCES ARE 
DELETED. SIZE (NF . IF > . 


3. SUBROUTINE ZBOOST CALLS THE FOLLOWING FORMA SUBROUTINES: 

- PAGEHD , READIM, TIMCHK, ZATXB , ZDISA, ZREAD , ZREDX , ZSAVEL, 
ZSAVEW, ZSIZE, ZSLADR , ZWRITE, ZWRKFL, ZZBOMB, ZZERO 

SUBROUTINE ARGUMENTS 


SUBROUTINE ZBOOST HAS NO SUBROUTINE ARGUMENTS. 


EXAMPLE OF CALLING PROGRAM ON CDC 172/720/730 


FILE ASSUMPTIONS : 

-TAPE 1 = WORK FILE REQUIRED BY ZBOOST. NWRKFL= 1 

-TAPE 1 0 - FORMA FILE (FOR INPUT DATA). NOTE THAT MORE 

TNAN ONE FORMA FILE MAY BE NECESSARY IF INPUT 
DATA IS RECORDED ON SEVERAL FORMA FILES. 

-TAPE 11 = FORMA FILE (FOR OUTPUT DATA). NWF 1 LE= 1 1 


PROGRAM BOOSTER ( INPUT . OUTPUT , TAPE5= INPUT , TAPE6=0UTPUT . 
* TAPE 1 , TAPE 1 0 , T APE 1 1 ) 

1 CALL START 

CALL TIMCHK (6HTBEGIN ) 

CALL TIMCHK ( 6HZB00ST ) 

CALL ZBOOST 

CALL TIMCHK (6HZB005T) 

CALL TIMCHK ( 6HTPRINT ) 

GO TO 1 
END 


INPUT FORM 


CALLING PROGRAM MUST -CALL START- 


READ (415) IFNB.ND.NF 
READ (315) NWF1LE .NWPKFL .NWRITE 
READ (415) NEXP , NTB , NBMK 12 , NDET 
CALL ZREAD (PHINB) 

IF ( NEXF .LQ. 1 ) GO TO 1 

CALL READIM ( IFACE ,NR1 .NCI . 1 . K 1 1 

1 CONTINUE 

CALL READIM ( NFORCE , NR2 , NC2 , 1 , K2 1 
IF (NTB .EQ. 1 ) GO TO 3 
IF (NEXP .EQ. 0) GO TO 2 
CALL READIM < IFACE . NR 1 . NC 1 . 1 . K 1 ) 

2 CONTINUE 

CALL ZREAD IBM) 

CALL ZREAD < BK I 
GO TO 5 

3 CONTINUE 

CALL ZREAD ( TB ) 

IF (NBMK 12 .EQ. 1 ) GO TO 4 
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CALL ZREAD (BM' 

CALL ZREAD (BK) 

GO TO 5 

4 CONTINUE 

CALL ZREAD ( BM 1 ) 

CALL ZREAD ( BM2 ) 

IF (NDET .EQ. 1) GO TO 5 
CALL ZREAD ( BK2 ) 

5 CONTINUE 

CALL ZREAD (FREQb.' 

RETURN 


ORIGINAL PAjc 
0F POOR QUALITY 


THEREFORE THE FOLLOWING CASES OF INPUT ARE ALLOWED : 


IF ,NB,ND,NF 

NWFILE.NWRKFL.NWRITE 

KZXP t NTB,NBMK12,NDET 

°HINB 

IFACE 

NFORCE 

BM, BK 

TB 

BM 1 , BM2 

9K2 

FREOB 


(ALWAYS INPUT) 

( ALWAYS INPUT ) 

(ALWAY f N : UT ) 

( ALWA V j xNPL’T) 

(is input we::p=o OR NTB=0) 

( ALWAYf INPUT ) 

(are in-put when ntb=c or npmk 12 = 0 ) 

( IS IN • T WHEN NTB= 1 ) 

(ARE INH'JT ONLY WHEN NBMK 12=1) 

(IS INPUT WHEN NBMK 12= 1 AND ND^O) 
(ALWAYS INPUT) 


NOTE THAT THE ORDER OF APPEARANCE IN THE INPUT FILE OF THE 
ABOVE QUANTITIES IS IMPORTANT. ALSO, NOTE THAT THE CASE NTB=0 
AND NCMK 12= 1 IS CONSIDERED IMPOSSIBLE 1.6. IF TB IS NOT GIVEN IT IS 
ASSUMED THAT BM2 , BK2 , AND BM1 ARE NOT GIVEN EITHER AND MUST BE 
CALCULATED (l.E. IF NTB=0 THEN NECESSARILY NBMK12=0) 


DEFINITION OF INPUT VARIABLES 


BK 

BK2 


BM 
BM 1 


BM2 

IF 

IFACE 


NB 

NBMK 12 
C 

C ND 


DISCRETE FREE BOOSTER STIFFNESS MATRIX IN PARTITION- 
LOGIC. SIZE 1 ND , ND ! . 

TBT*Bi\*TB. BOOSTEP STIFFNESS MATRIX REDUCED TO THE 
INTERFACE IN PARTITION-LOGIC. WP..N ThE 
INTE.'ACE IS DETERMINATE, bK2 = 0. SIZE (IF, IF). 

DISCRETE FREE BOOSTER MASS MATRIX IN PARTITION-LOGIC. 
SIZE IND.NDl . 

TBT*BM*IB*PHP'A. BOOSTER COUPLING MASS MATRIX BETWEEN 
INTERFACE AND NON- INTERFACE DOFS IN PARTITION -LOGIC . 
SIZE ! IF.NB) . 

TBT*bM*TB . BOP c TER MASS MATRIX REDUCED TO THE IN'ERFAC 
IN PARTITION-!. „IC. SIZE (I" If) . 

NUMBER OF INTERFACE DOFS 

VECTOR OF INTEGERS TO INDICATE INTERFACE LOCATIONS iN 
DENSE-LOGIC. SIZE (1,IF). IFACE l I ) N. N= LOCATION OF 
I-TH INTERFACE DO c IN DISCRETE DISPLACEMENT VEC'jR JF 
BOOSTER. 

NUMBER OF TRUNCATED BOOSTER MODES. NUMBER OF COLUMNS l 
F R E OB T OF NUMBER OF ROWS IN PHINBR. 

0 BM2 , ' K2 , AND uM 1 ARE NOT AVAIL;9LE. 

( BK2 xS NECESSARY ONLY IF NDE t O> 

1 BM2 . BK2, AND BM 1 ARE AVAILABLE. 

NUMBER OF ROWS AMD COLUMNS IN BM AND BK i INCLUDING 
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ORIGINAL PAGE IS 

INTERFACE DOFS) . OF POOR QUALITY 

NDET * 0 THE INTERFACE IS NOT DETERMINATE. 

* 1 THE INTERFACE IS DETERMINATE. 

NEXP = 0 THE CANTILEVERED BOOSTER MODES ARE AVAILABLE BUT 
ARE NOT EXPANDED TO INCLUDE THE INTERFACE DOFS. 

* 1 THE INTERFACE EXPANDED CANTILEVER BOOSTER MODES ARE 

AVAILABLE. 

NF = NUMBER OF NON-ZERO APPLIED DISCRETE BOOSTER FORCE 

COMPONENTS. NUMBER OF COLUMNS IN PHINBR AND TBR . 

NFORCE = VECTOR OF INTEGERS IN DENSE-LOGIC TO INDICATE DOFS IN 
THE BOOSTER WHERE NON-ZERO FORCES ARE APPLIED. 

NFORCE ( I ) * DOF WHERE THE I-TH FORCE COMPONENT IN 
TABLE OF FORCES IS APPLIED. THE TABLE OF FORCES 
SHOULD BE ORDERED FROM LOWEST DOF TO THE HIGHEST 
DOF CORRESPONDING TO NON-ZERO FORCE COMPONENTS, SO 
THE NFORCE VECTOR SHOULD ASLO BE INCREASING. 

SIZE ( 1 , NF ) . 

NTB =0 TB IS NOT AVAILABLE 
=1 TB IS AVAILABLE 

NWFILE = wOGICAL FILE NUMBER FOR OUTPUT DATA. (E.G. NTAPE=11) 

NWRITE = 0 RESULTS ARE NOT PRINTED ON PAPER. 

= 1 RESULTS ARE PRINTED ON PAPER. 

NWRKFL = LOGICAL FILE NUMBER FOR WORKFILE. (E.G. NWRKFL= 1 ) 

FREQB = CANTILEVERED BOOSTER FREQUENCY VECTOR IN 

PARTITION-LOGIC. SIZE < 1 , NT ) WITH NT .GE. NB. 

PHINB = CANTILEVERED BOOSTER MODES IN PARTITION-LOGIC. 

IF NEXP=0 : INTERFACE DOFS ARE NOT INCLUDED. 

SIZE ( ND- IF , NT ) . 

IF NEXP= 1 : INTERFACE DOFS ARE INCLUDED, I.E. ZERO ROWS 
WHERE INTERFACE DOFS OCCUR. SIZE (ND .NT ) . 

TB = THE CONSTRAINT MODAL MATRIX IN PARTITION-LOGIC. 

SIZE (ND, IF ) . 


NERROR EXPLANATIONS 


1 = INPUT SIZE OF THE NON- INTERFACE EXPANDED PHINB 

IS INCORRECT. ( NRPHI .NE. (ND- IF ) ) 

2 = INPUT SIZE OF I FACE IS INCORRECT. (NCI .NE. IF) 

3 = INPUT SIZE OF THE INTERFACE EXPANDED PHINB 

IS INCORRECT. (NRPHI .NE. ND ) 

4 = INPUT SIZE OF NFORCE IS INCORRECT. ( NC2 .NE. NF ) 

5 = THE NFORCE VECTOR DOES NOT MONOTOMICALLY INCREASE. 

DIMENSION , COMMON , DATA , FORMAT 


DIMENSION I FACE (200), NFORCE (500) 

COMMON /NITNOT/ NIT, NOT 

DATA K1.K2 /200.500/ 

C 

1000 FORMAT ( 1015) 

2000 FORMAT I9( / I ,49X,* INPUT VARIABLES TO ZBOOST*,/, 

* , 49X , * *,///. 

* , 53X , *NWFILE =*,I5,/,53X, *NWRKFl =*.15,/, 

* , 53X , *NWR1TE =*,I5,///, 

* . 50X , *DESCR I PT ION OF BOOSTER*,/ 

* ,50X,* *,/// 

* , 45X , *NUMBER OF BOOSTER DOFS =* . 15 , 1 OX , *ND =*.15./ 

* 35X , *NUMBER OF BOOSTER INTERFACE DOFS =* . 15 , 1 0X . *IF =*I5/25X 


* , *NUMBER OF TRUNCATED BOOSTER MODES RETAINED =*.15, 1 0X , *NB 

*/28X,*NUMBER OF FORCES APPLIED TO THE BOOSTER =* . 1 5 , 1 0X , *NF 


///) 


C'SL 


= *, 15 
= *,I5 
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2001 FORMAT 
* 

2002 FORMAT 
* 

2003 FORMAT 
* 

2004 FORMAT 

* 

2005 FORMAT 
* 

2006 FORMAT 

2007 FORMAT 

2008 FORMAT 


(19X , *THE MODES ARE NOT EXPANDED TO INCLUDE INTERFACE DOFS* 
,10X,*(NEXP s 0)*,/> 

( 23X , *THE MODES ARE EXPANDED TO INCLUDE INTERFACE DOF$*,10X 
, * ( NEXP * 1)*./} 

( 36X , *TB, BM1 , 8M2 , AND BK2 ARE NOT GIVEN*, 10X,*(NTB * 0)* 

,/> 

( 30X , *TB - THE CONSTRAINT MODAL MATRIX IS GIVEN*, 1 0X . 

* ( NTB » 1)*,/) 

( 36X , *BM1 , BM2, AND BK2 ARE NOT AVAILABLE* , 1 0X , 

* ( NBMK 12 * 0)*,/) 

( 40X , *BM1 , BM2, AND BK2 ARE AVAILABLE*, 10X,*(NBMK12 * 1)*/) 
( 39X , *THE INTERFACE IS NOT DETERMINANT*. 1 0X,* (NDET c 0)*,/) 
( 43X , * T HE INTERFACE IS DETERMINANT*, 10X,*(NDET * 1)*,/) 


A. BEGINNING OF PROGRAM 


READ (NIT, 1000) IF.NB.ND.NF 

READ (NIT, 1000) NWFILE .NWRKFL .NWRITE 

READ (NIT, 1000) NEXP, NTB, NBMK12.NDET 


PAge 

0F Quality 


CALL PAGEHD 

WRITE (NOT, 2000) NWFiLE .NWRKFL , NWRI T E ,ND ,ND , IF , IF , NB , NB, NF , NF 
IF (NEXP .NE. 1) WRITE (NOT, 2001) 

IF (NEXP .EQ. 1) WRITE (NOT. 2002) 

IF (NTB .NE. 1 ) WRITE (NOT.2C03) 

IF (NTB .EQ. 1) WRITE (NOT, 2004) 

IF ( NBMK 12 .NE. 1 .AND. NTB .EQ. 1) WRITE (NOT, 2005) 

IF (NBMK 12 .EQ. 1) WRITE (NOT. 2006) 

IF ( NDET .EQ. 0) WRITE (NOT. 2007) 

IF (NDET .NE. 0) WRITE (NOT,2008> 

CALL ZWRKFL (NWRKFL) 

B. COMPUTE PHINBR 


CALL ZREAD (PHINB) 

CALL ZSIZE (PHINB. NRPHI .NCPHI ) 
NN=ND- IF 


CALL TIMCHK ( 6HPHINBR ) 
CALL TIMCHK (6HREAD ) 

CALL TIMCHK ( 6HREAD ) 


IF (NEXP .EQ. 1) GO TO 100 
IF ! NRPHI .NE. NNi 


NERRORs 1 
GO TO 999 


Cl. TRUNCATE THt CANTILEVERED MODES AND THEN 
EXPAND THEM TO INCLUDE INTERFACE DOFS 


CAL. READIM ( I FACE , NR 1 , NC 1 . 1 . K 1 ) 


IF (NCI .NE. IF) 

C 

J= I 

DC 20 isl.ND 
IF -J .GT. IF) GO TO 10 
IF 'IFACE(J) .NE. I) GO TO 10 
NFORCEt I >=0 


ULL TIMCHK ( 6HREAD ) 

CALL TIMCHK (6HREAD > 
NERROR*2 
GO TO 999 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


J = J+1 
GO TO 20 

10 NF0RCE(I > « I - J+ 1 
20 CONTINUE 
C 

CALL ZZERO (ZZ.ND.NB) 

NN=ND-IF 

CALL ZDISA (PHINB, 1 , 1 ,NN,NB,TT) 
CALL ZSLADR 1 1 . , TT , NFORCE , ND , ZZ ) 

GO TO 120 
C 

100 CONTINUE 

B2. TRUNCATE THE EXPANDED MODES 


NERROR-3 

IF ( NRPHI .NE. ND) GO TO 999 

CALL ZDISA (PHINB. 1.1,ND,NB,ZZ) 

120 CONTINUE 

* * St * * * * * * * * * * * * * * * * * * * * * * * * * * * Sc# *** ★ * * * * * * * *. * ** * Sc * * * 

CALL ZSAVEW ( ZZ , 6HPHINB , NWFILE ) 
**************************************************** 

B3 . DELETE ROWS THAT CORRESPOND TO DEGREES 
OF FREEDOM WITH ZERO FORCES APPLIED 


CALL READIM (NFORCE ,NR2,NC2, 1 ,K2) 


IF ( NC2 .NE. NF) 


CALL TIMCHK ( 6HREAD ) 


CALL TIMCHK ( 6HREAD ) 
NERR0R=4 
GO TO 999 
NERROR=5 


DO 140 KK=2 , NC2 

IF ( NFORCE (KK) .LE. NFORCE ( KK- 1 ) ) GO TO 999 

140 CONTINUE 


CALL ZZERO ( PHINBR , NF , NB ) 

CALL ZSLADR ( 1 . ,ZZ, NFORCE, NF, PHINBR) 

CALL TIMCHK ( 6HPHINBR ) 


C. COMPUTE TBR , BM2 , BK2 , AND BM1 


CALL TIMCHK ( 6HTBMK 1 2 ) 

IF ( NTB .EQ. 1 ) GO TO 280 
Cl. TB IS NOT GIVEN 


CALL TIMCHK ( 6HREAD ) 

IF (NEXP .EQ. 0) GO TO 210 
CALL READIM ( I FACE , NR 1 , NC 1 , 1 , K 1 > 

NERROR=2 

IF (NCI .NE. IF) GO TO 999 

210 CONTINUE 

CALL ZREAD ( BM » 

CALL ZREAD ( BK ) 

CALL TIMCHK ( 6HREAD ' 


CALCULATE TB. BM2 , AND BK2 IN ZREDX 


CALL ZREDX t BM , BK . I FACE , I F , TB . BM2 , BK2 ) 
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CALL TIMCHK l 6HZREDX » 
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CALL TIMCHK (6HZREDX I 

IF (NOET .EQ. 0) GO TO 260 
CALL ZZERO (BK2.IF.IF) 

C 

260 CONTINUE 

CALCULATE BM 1 ORIGINAL PAGE IS 

OF POOR QUALITY 

CALL ZATXB (TB.BM.Z) 

CALL ZMULT IZ.Z2.BM1) 

GO TO 500 

280 CONTINUE 


C2 TB IS GIVEN 


CALL ZREAD (TB) 

IF (NRMK12 .EO. 1) GO TO 380 

CALL ZREAD (BM) 

CALL ZREAD (BK) 


CALL TIMCHK (6HREAD ) 
CALL TIMCHK ( 6HREAD ) 
CALL TIMCHK ( 6HREAD ) 

CALL TIMCHK (6HREAD ) 


CALCULATE BM1. BM2. AND BK2 


CALL ZATXB (TB.BM.Z! 

CALL ZMULT ( Z . TB . BM2 ) 

CALL ZMULT (Z.ZZ.BM1) 

IF ( NDET .EO. D GO TO 330 
CALL ZATXB (TB.BK.Z) 

CALL ZMULT IZ.TB.BK2) 

GO TO 340 
330 CONTINUE 

CAIL ZZERO (BK2.IF.IF) 

340 CONTINUE 

GO TO 500 

380 CONTINUE 

C3. READ BM1. BM2 . AND BK2 


400 

410 


CALL ZREAD ( BMl > 

CALL ZREAD ( BM2 ' 

IF (NDET ,E0. 1> GO TO 400 
CALL ZREAD (BK2‘ 

GO TO 410 
CONTINUE 

CALL ZZERO (BK2. IF . IF 1 
CONTINUE 


CALL TIMCHK i 6HREAD I 


CALL TIMCHK t 6HREAD » 


500 CONTINUE 

D. DELETE ROWS OF TB THAT CORRESPOND TO DOFS 
WITH ZERO FORCES APPLIED 
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c 


CALL ZSAVEW (TB.6HTB .NWFILE) 

***************************************************************** 
CALL ZZERO (TBR.NF.IF) < 

CALL ZSLADR ( 1 . , TB , NFORCE , NF , TBR ) 

CALL TIMCHK (6HTBMK12) 

E. READ IN AND TRUNCATE THE BOOSTER FREQUENCIES 


CALL ZREAD ( FREQB ) 

CALL ZD ISA (FREQB, 1 , 1 , 1 , NB , FREQBT ) 


CALL TIMCHK I6HREAD ) 
CALL TIMCHK (6HREAD ) 


F. WRITE OUTPUT ON PAPER 


CALL TIMCHK ( 6HWRITE ) 

IF (NWRITE .EQ. 0) GO TO 510 

CALL ZWRITE ( PHINBR , 6HPHINBR ) 

CALL ZWRITE ( FREQBT , 6HFREQBT ) 

CALL ZWRITE (TBR.6HTBR ) 

CALL ZWRITE (BM1.6HBM1 ) 

CALL ZWRITE (BM2.6HBM2 ) 

CALL ZWR I TE ( BK2 . 6HBK2 ) OKIS'."- . > - - 

OF POOR QUAUlY 

510 CONTINUE 

G. WRITE OUTPUT ON NWFILE 


CALL ZSAVEW ( PHINBR , 6HPHINBR , NWF I LE ) 

CALL ZSAVEW ( FREQBT , 6HFRE0BT , NWF I LE ) 

CALL ZSAVEW ( TBR , 6HTBR .NWFILE ) 

CALL ZSAVEW (BM1.6HBM1 .NWFILE) 

CAlL ZSAVEW (BM2.6HBM2 .NWFILE) 

CALL ZSAVEW ( BK2 , 6HBK2 .NWFILE) 

C 

CALL ZSAVEL (NWFILE) 

CALL TIMCHK ( 6HWRITE ) 

RETURN 

C 

999 CALL ZZBOMB ( 6HZB00ST , NERROR ) 

C 

END 


98 



ooooooooooooooooooooooooooooooooooooooo ooooooooooo 


PROGRAM PAYLOAD ( INPUT .OUTPUT , TAPE5* INPUT , TAPE6=0UTPUT , TAPE20, 
+ TAPE30 , TAPE31 , TAPE32 , TAPE40 ) 

C 

1 CALL START 

CALL TIMCHK ( 6HTBEGIN ) 

CALL TIMCHK (6HZPAYL ) 

CALL ZPAYL 

CALL TIMCHK ( 6HZPAYL ) 

CALL TIMCHK (6HTPRINT ) 

GO TO 1 
END 


*********** 
* * 

* ZPAYL * 

* * 
*********** 


ORIGINAL FAGS IS 
OF POOR QUALITY 


SUBROUTINE ZPAYL 

SUBROUTINE ZPAYL PRODUCES ALL PAYLOAD RELATED INPUT DATA 
NECESSARY TO RUN PROGRAM RESPONS. 

DEVELOPED BY RC ENGELS AND TG SHANAHAN, NOVEMBER 1981. 


COMMENTS 


1. SUBROUTINE ZPAYL IS PART OF A COMPLETE BOOSTER/PAYLOAD 
INTEGRATION SOFTWARE PACKAGE USING A DIRECT NUMERICAL 
INTEGRATION TECHNIQUE. A DISCUSSION OF THIS TECHNIQUE CAN 
BE FOUND IN "STRUCTURAL DYNAMICS PAYLOAD LOADS ESTIMATES - 
FINAL REPORT, JUNE 1982". 

2. THE FOLLOWING DATA IS PUT ON NWFILE : 


- FREQPT 

- PK2 

- PL 1 

- PL2 

- PM1 

- PM2 

- TP 


TRUNCATED CANTILEVERED PAYLOAD FREQUENCY VECTOR. 

( 1 ,NP) 

TPT*PK*T P . PAYLOAD STIFFNESS MATRIX REDUCED TO 
THE INTERFACE. (IF, IF). IF THE INTERFACE IS 
DETERMINATE THEN PK2=0. 

IP*EP*IPT*MP*IP*PHINPT. (ND.NP) A LOADS 
TRANSFORMATION. WHERE IP*PHINPT ARE THE TRUNCATED 
EXPANDED CANTILEVERED PAYLOAD MODES. 

IP*EP*IPT*MP*TP . (ND.IF) A LOADS TRANSFORMATION 
TPT*PM*IP*PHINPT. PAYLOAD COUPLING MASS MATRIX BETWE 
INTERFACE AND NON- INTERFACE DOFS. (IF.NP). 

TPT*PM*TP . PAYLOAD MASS MATRIX REDUCED TO THE 
INTERFACE. (IF, IF) 

THE CONSTRAINT MODAL MATRIX. (ND.IF) 


3. SUBROUTINE ZPAYL CALLS THE FOLLOWING FORMA SUBROUTINES: 

- PAGEHD , READIM, TIMCHK, ZATXB , ZDISA. ZINV3 , ZMULT , ZREAD , 
ZREDX , ZSAVEL. ZSAVEW, ZSIZE, ZSLADR , ZTRANS . ZWRITE, ZWRKFL . 
ZZBOMB , ZZERO 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


SUBROUTINE ARGUMENTS 


SUBROUTINE ZPAYL HAS NO ARGUMENTS 


EXAMPLE OF CALLING PROGRAM ON CDC 172/720/730 


FILE ASSUMPTIONS : 

- TAPE 1 = WORK FILE REQUIRED BY ZPAYL. NWRKFL* 1 . 

- TAPE10 * FORMA FILE (FOR INPUT DATA). NOTE THAT MORE THAN 

ONE FORMA FILE MAY BE NECESSARY IF INPUT DATA IS 
RECCRCED ON SEVERAL FORMA FILES. 

- TAPE11 = FORMA FILE (FOR OUTPUT DATA). NWFILE=11. 


PROGRAM PAYLOAD < INPUT .OUTPUT ,TAPE5= INPUT , rAPE6=OUTPUT , 
* TAPE1 , TAPE 10, TAPE 1 1 > 

1 CALL START 

CALL TIMCHK (6HTBEGIN) 

CALL TIMCHK ! SHZPAYL ) 

CALL ZPAYL 

CALL TIMCHK ( 6HZPAYL ) 

CALL TIMCHK ( 6HTPRINT ) 

GO TO 1 
END 


INPUT FORM 


CALLING PROGRAM MUST -CALL START- 

READ (315) IF, NP, ND 
READ (315) NWFILE, NWRKFL , NWRITE 
READ (615) NEXP, NTP , NPMK12, NDET , NLOAD, NEP 
CALL ZREAD (PHINP) 

IF (NEXP .EQ. 1 ) GO TO 1 

CALL READIM ( IFACE , NR1, NCI, 1, K1) 

1 CONTINUE 

IF (NTP .EQ. 1) GO TO 3 
IF (NEXP .EQ. 0) GO TO 2 
CALL READIM ( IFACE . NR 1 , NC 1 . 1 , K 1 ) 

2 CONTINUE 
CALL ZREAD (PM) 

CALL ZREAD ( PK ) 

GO TO 5 

3 CONTINUE 
CALL ZREAD (TP) 

IF (NPMK12 .EQ. 1 ) GO TO 4 
CALL ZREAD (PM) 

CALL ZREAD ( PK ) 

GO TO 5 

4 CONTINUE 
CALL ZREAD I PM 1 I 
CALL ZREAD ( PM2 I 


’00 
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ORIGINAL PAGZ IS 

IF (NDET .EO. 1) GO TO 5 OF POOR QUALITY 

CALL 2READ ( PK2 ) 

5 CONTINUE 

IF (NLCAD .EO. 1 ) GO TO 9 

IF ( NTP .EO. 0 .OR. NPMK 12 .EQ. 0) GO TO 6 

CALL ZREAD (PM) 

IF (NEP .EO. D GO TO 6 
CALL ZREAD (PK) 

GO TO 7 

6 CONTINUE 

IF (NEP .EQ. 0) GO TO 7 
CALL ZREAD (EP) 

GO TO 8 

7 CONTINUE 

IF (NEXP .EO. 0 .OR. NTP .EO. 0) GO TO 8 
CALL READIM (IFACE.NRl ,NC1, 1 ,K1 ) 

8 CONTINUE 

IF ((NEXP .EQ. 0 .OR. NTP .EQ. 0) 

.OR. NEP .EQ. 0) GO TO 10 

CALL READIM (IFACE.NRl ,NC1 . 1 ,K1 ) 

GO TO 10 

9 CONTINUE 

CALL ZREAD ( PL 1 ) 

CALL ZREAD ( PL2 ) 

10 CONTINUE 

CALL ZREAD ( FREQP ) 

RETURN 


THEREFORE THE FOLLOWING CASES OF INPUT ARE ALLOWED : 


IF.NP.ND 

NWF ILE , NWRKFL , NWRITE 

NEXP, NTP. NPMK 12. NDET, NLOAD. NEP 

PHINP 

IFACE 

PM 

PK 

TP 

PM1 , PM2 

PK2 

PL 1 
PL2 
EP 

FREv. 


(ALWAYS INPUT) 

(ALWAYS INPUT) 

(ALWAYS INPUT) 

(ALWAYS INPUT) 

(IS INPUT WHEN NEXP=0 OR NTP=0 

OR ( NEP=0 AND NLOAD=0 ) ) 
(IS INPUT WHEN NTP=0 OR NPMK12=0 
OR NLOAD =0) 

(IS INPUT WHEN NTP=0 OR NPMK12=0 
OR ( NLOAD= 1 AND NEP*0) ) 
( IS INPUT ONLY WHEN NTP=1 ) 

(ARE INPUT ONLY WHEN NTP=1 AND 
NPMK 12= 1 ) 

( IS INPUT ONLY WHEN NTP=1 , 

NPMK 12=1 AND NDET=0 ' 

( IS INPUT WHEN NLOAD= 1 ) 

( IS INPUT WHEN NLOAD= 1 ) 

(IS INPUT ONLY WHEN NLOAD=0 AND 
NEP= 1 ) 

(ALWAYS INPUT) 


NOTE THAT THE ORDER OF APPEARENCE IN THE INPUT FILE OF THE ABOVE 
QUANTITIES IS IMPORTANT. ALSO. NO T E THAT THE CASE NTP=0 AND NPMKl2=1 
IS CONSIDERED IMPOSSIBLE I.E. IF TP IS NOT GIVEN IT IS ASSUMED THAT 
Ph12.PK2 AND PM 1 ARE NOT GIVEN EITHER AND MUST BE CALCULATED I I.E. IF 
NTP=0 THEN NECESSARILY NPMK 12=0) 
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ORIGINAL PAGE 13 
OF POOR QUALITY 


DEFINITION OF INPUT VARIABLES 


EP 

FREQP 

IF 

IFACE 

ND 

NDET 

NEP 

NEXP 

NLOAD 

NP 

NPMK12 

NTP 

NWFILE 

NWRITE 

NWRKFL 

PHINP 

PK 
PL 1 

PL2 

PM 

TP 


(IPT*PK*IP)**-1 THE INVERSE OF THE CANTILEVERED 
STIFFNESS MATRIX. 

CANTILEVERED PAYLOAD FREQUENCY VECTOR IN PARTITION- 
LOGIC. ( 1 , NT ) WITH NT .GE. NP. 

NUMBER OF INTERFACE DOFS. 

VECTOR OF INTEGERS TO INDICATE INTERFACE LOCATIONS 
DENSE-LOGIC. ( 1 , IF > . IFACE(I)=N. N*LOCATION OF I-TH 
INTERFACE DOF. IN DISCRETE DISPLACEMENT VECTOR OF 
PAYLOAD. 

NUMBER OF ROWS AND COLUMNS IN PM AND PK (INCLUDING 
INTERFACE DOFS). 

0 THE INTERFACE IS NOT DETERMINATE. 

1 THE INTERFACE IS DETERMINATE 

0 EP IS NOT AVAILABLE 

1 EP IS AVAILABLE 

0 A SET OF CANTILEVERED PAYLOAD MODES IS AVAILABLE BUT 
IS NOT EXPANDED TO INTERFACE DOFS. 

1 A SET OF INTERFACE EXPANDED PAYLOAD MODES IS 
AVAILABLE 

0 THE LOAD TRANSFORMATIONS, PL 1 , PL2, ARE NOT AVAILABLE 

1 THE LOAD TRANSFORMATIONS, PL1 , PL2 , ARE AVAILABLE 

NUMBER OF TRUNCATED PAYLOAD MODES. NUMBER OF COLUMNS IN 
FREQP OF NUMBER OF ROWS IN PHINPR. 

0 PM2.PK2 AND PM1 ARE NOT AVAILABLE. 

1 PM2 , PK2, AND PM1 ARE AVAILABLE. 

0 TP IS NOT AVAILABLE 

1 TP IS AVAILABLE 

LOGICAL FILE NUMBER FOR OUTPUT DATA. (E.G. NTAPE=11) 

0 RESULTS ARE NOT PRINTED ON PAPER. 

1 RESULTS ARE PRINTER ON PAPER. 

LOGICAL FILE NUMBER FOR WORKFILE. (E.G. NWRKFL= 1 ) 
CANTILEVERED PAYLOAD MODES IN PARTITION-LOGIC. 

IF NEWXP=0 : INTERFACE DOFS ARE NOT INCLUDED. (ND-IF, NT) 
IF NEXP* 1 : INTERFACE DOFS ARE INCLUDED, I.E. ZERO ROWS 
WHERE INTERFACE DOFS OCCUR. (ND.NT) 

DISCRETE FREE PAYLOAD STIFFNESS MATRIX IN PARTITION- 
LOGIC. (ND.ND) 

IP*EP*IPT*MP*IP*PHINPR (ND.ND) A LOAD TRANSFORMATION 
WHERE, IP*PHINPR IS THE TRUNCATED EXPANDED CANTILEVERED 
MODES. 

IP*EP*IPT*MP*TP (ND, IF ) A LOAD TRANSFORMATION. 

DISCRETE FREE PAYLOAD MASS MATRIX IN t'ARTITION-LOUlC 
(ND.ND) 

THE CONSTRAINT MODAL MATRIX. ( ND . I t: ) 


NERROR EXPLANTAIONS 


1 = SIZE OF THE INPUT NON- INTERFACE EXPANDED MODES IS 

INCORRECT. INEXP=0 BUT NRPHI .NE. (ND-IF)) 

2 s INPUT SIZE OF IFACE IS INCORRECT. (NCI .NE. IF) 

3 - SIZE OF THE INPUT INTERFACE EXPANDED MODES IS 

INCORRECT. ( NEXP= 1 BUT NRPHI .NE. ND ) 
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ORIGINAL PAGE fs 
OF POOR QUALITY 


C DIMENSION, COMMON, DATA, FORMAT 

C 

DIMENSION IFACE (200), NVEC (500) 

C 

COMMON /NITNOT/ NIT, NOT 
DATA K 1 / 200/ 

C 

1000 FORMAT (1015) 

2000 FORMAT (9(/) ,49X,* INPUT VARIABLES TO ZPAYL* , / , 

* , 49X , * - *,///, 

* , 53X , *NWFILE = *, 15 , / , 53X , *NWRKFL **,15,/, 

* ,53X,*NWRITE =*,I5,///, 

* ,50X,*DESCRIPTION OF PAYLOAD*./ 

* , 50X , * *,/// 

* , 45X , *NUMBER OF PAYLOAD DOFS =*, 15, 10X,*ND =* , 15 , / 

* 35X , *NUMBER OF PAYLOAD INTERFACE DOFS =* , 15 , 1 0X , *1 F **I5/25A 

* , *NUMBER OF TRUNCATED PAYLOAD MODES RETAINED **, 15, 10X,*NP **,I5 

* ///) 

2001 FORMAT (19X,*THE MODES ARE NOT EXPANDED TO INCLUDE INTERFACE DOFS* 

* , 10X,*(NEXP = 0)*,/) 

2002 FORMAT (23X,*THE MODES ARE EXPANDED TO INCLUDE INTERFACE DOFS*,10X 

* , * ( NEXP = 1)*,/) 

2003 FORMAT (36X,*TP, PM1 , PM2 , AND PK2 ARE NOT GIVEN* , 1 0X , *NTP = .0 ) * / ) 

2004 FORMAT (30X,*TP - THE CONSTRAINT MODAL MATRIX IS GIVEN*, 10X, 

* * ( NTP = 1)*,/) 

2005 FORMAT (36X,*PM1, PM2, AND PK2 ARE NOT AVAILABLE* , 10X, 

* *(NPMK12 = 0)*,/) 

2006 FORMAT (40X,*PM1, PM2 , AND PK2 ARE AVAILABLE* , 1 0X ,*( NPMK 12 = 1)*/) 

2007 FORMAT ( 39X , *THE INTERFACE IS NOT DETERMINANT* , 10X ,*( NDET = 0)*,/) 

2008 FORMAT (43X,*THE INTERFACE IS DETERMINANT* , 1 0X ,*< NDET = 1)*,/) 

2009 FORMAT (21X,*THE LOAD TRANSFORMATIONS PL 1 AND PL2 ARE NOT GIVEN*, 

* 10X,*(NLOAD = 0)*,/) 

2010 FORMAT (25X,*THE LOAD TRANSFORMATIONS PL 1 AND PL2 ARE GIVEN*, 

* 10X , * ( NLOAD * 1)*,/) 

2011 FORMAT (25X,*THE CANTILEVERED FLEXIBILITY - EP IS NOT GIVEN*, 

* 1 0X , * ( NEP = 0)*,/) 

2012 c ORMAT (29X,*THE CANTILEVERET FLEXIBILITY - EP IS GIVEN*, 

* 10X * ( NEP = 1 )*,/) 


BEGINNING OF PROGRAM 


C 


READ (NIT, 1000) IF, NP, ND 

READ (NIT, 1000) NWFILE , NWRKFL , NWRITE 

READ (NIT, 1000) NEXP, NTP, NPMK 12 , NDET, NLOAD, NEP 


CALL PAGEHD 
WRITE (NOT, 2000) 

IF (NEXP .NE. 1) 

IF (NEXP .EQ. 1) 

IF (NTP .NE. 1) 

IF (NTP .EQ. D 
IF ( NPMK 12 .NE. 1 
IF ( NPMK. 12 .EQ. I 
IF (NDET .EQ. 0) 

IF (NDET .NE. 0) 

IF (NLOAD .EQ. 1) 

WRITE (NOT, 2009) 

IF (NEP .NE. 1) WRITE 
IF (NEP .EQ. 1) WRITE 
GO TO 8 


NWFILE , NWRKFL , NWRITE , ND , ND , IF , IF , NP , NP 
WRITE (NOT, 2001) 

WRITE (NOT, 2002) 

WRITE (NOT, 2003) 

WRITE (NOT, 2004) 

.AND. NTP . EQ. 1) 

WRITE (NOT, 2006) 

(NOT, 2007) 

(NOT, 2008) 

6 


WRITE (NOT, 2005 


WRITE 
WRITE 
GO TO 


NOT. 201 1 
NOT, 2012 
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6 WRITE (NOT, 2010) 
8 CONTINUE 


ORIGINAL PAGE IS 
OF POOR QUALITY 


A. COMPUTE PHINPT 


EXPANDED TRUNCATED MODES 

CALL 
CALL 
CALL 


CALL ZWRKFL ( NWRKFL ) 
CALL ZREAD (PHINP) 


CALL ZSIZE ( PHINP , NRPHI , NCPHI ) 
NN=ND- IF 


TIMC ,! ' i6HF MPT ) 
TIMCHK (BHREAu ) 
TIMCHK ( 5H r EAD ) 


IF (NEXP .EQ. 1) GO TO 100 

NERROR* 1 

IF (NRPHI .NE. NN) GO TO 999 

A 1 . TRUNCATE THE CANTILEVERED MODES THEN EXPAND 
TO INCLUDE THE INTERFACE DOFS 


CALL TIMCHK ( 6HREAD ) 

CALL READIM (IF* E , NR 1 , NC 1 , 1 , K 1 ) 

CALL TIMCHK (6HREAD ) 
NERROR=2 

IF (NCI .NE. IF) GO TO 999 

J=1 

DO 20 1=1, ND 

IF (d .GT. IF) GO TO 10 

IF ( I FACE ( J ) .NE. I) GO TO 10 

NVEC(I) = 0 

d = d+1 

GO TO 20 

10 NVEC(I) = I-d+1 
20 CONTINUE 

CALL ZZERO (ZZ.ND.NP) 

CALL ZDISA (PHINP, 1 , 1 .NN.NP.TT) 

CALL ZSLADR ( 1 . , TT , NVEC , ND , ZZ ) 

GO TO 110 
100 CONTINUE 

A2. TRUNCATE THE EXPANDED MODES 


NERRCR = 3 

IF (NRPHI .NE. ND) GO TO 999 

CALL ZDISA (PHINP, 1,1, ND,NP,ZZ) 

110 CONTINUE 

***************************************************** 

CALL ZSAVEW ( PHINP , 6HPHINP , NWFILE ) 

re**************************************************** 

CALL TIMCHK ( 6HPHINPT ) 

B. COMPUTE TP , PM2 , PK2 , AND PM 1 (IF NECCESAR Y I 


C 

C 


IF ( NTP .EQ. 1 1 C TO 280 
B 1 . TP IS NOT GIvEN 
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c 


CALL TIMCHK (6HREA0 ) 


IF (NEXP .EQ. 0) GO TO 210 
CALL READIM ( I FACE, NR 1 , NC 1 , 1 , K 1 
210 CONTINUE 

CALL ZREAD (PM) 

CALL ZREAD ( PK ) 


CALL TIMCHK ( 6HREAD ) 
CALL TIMCHK (6HZREDX ) 


CALCULATE TP, PM2 , AND PK2 IN ZREDX 


CALL ZREDX ( PM, PK , IFACE , IF , TP , PM2 , PK2 ) 

CALL TIMCHK (6HZREDX ) 


IF ( NDET .EQ. 0) GO TO 240 
CALL ZZERO ( PK2 , IF , IF ) 

240 CONTINUE 

CALL ZATXB (TP.PM.Z) 

CALL ZMULT (Z.ZZ.PM1) 

GO TO 500 


280 CONTINUE 

B2. TP IS GIVEN 

CALL ZREAD (TP) 

IF (NPMK12 .EQ. 1) GO TO 380 

CALL ZREAD (PM) 

CALL ZREAD ( PK ) 


CALL TIMCHK ( 6hREAD ) 
CALL TIMCHK ( 6HREAD ) 
CALL TIMCHK (6H r ) 

CALL TIMCHK (6HKLAD ) 


CALCULATE PM 1 , PM2 AND PK2 


330 

340 


CALL ZATXB (TP.PM.Z) 

CALL ZMULT (Z.TP.PM2) 

IF (NDET .EO. 1) GO TO 330 
CALL ZATXB i TP . PK , Z ) 

CALL ZMULT (Z.TP.PK2) 

GO TO 340 
CONTINUE 

CALL ZZERO (PK2.Ir.IF) 
CONTINUE 

CALL ZATXB (TP.PM.Z) 

CALL ZMULT (Z.ZZ.PMi) 


OR!G*:\AL 

OF POOR QUALITY 


GO TO 500 


380 CONTINUF 


CALL TIMCHK (6HREAD ) 


READ PM1 , PM2 , AND *K2 


CALL ZREAD (PM1) 

CALL ZREAD ( PM2 ) 

IF (NDET .EQ. 1 ) GO TJ 400 
CALL ZREAD ( PK2 ) 
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GO TO 500 
400 CONTINUE 

CALL ZZERO (PK2.IF.IF) 

500 CONTINUE 


ORIGINAL PAGE IS 
OF POOR QUALITY 


CALL TIMCHK 
CALL TIMCHK 


C. COMPUTE THE LOADS TRANSFORMATIONS PL 1 AND PL2 


CALL TIMCHK 

IF (NLOAD .EP. 1) GO TO 600 

CALL TIMCHK 

IF ( NTP ,EQ. 0 .OR. NPMK12 .EQ. 0) GO TO 510 

CALL TIMCHK 

CALL ZREAD (PM) 

CALL TIMCHK 

IF (NEP .EQ. 1) GO TO 510 

CALL TIMCHK 

CALL ZREAD (PK) 

CALL TIMCHK 

GO TO 520 
510 CONTINUE 

IF (NEP .EQ. 0) GO TO 520 

CALL TIMCHK 

CALL ZREAD (EP) 

CALL TIMCHK 

GO TO 550 
520 CONTINUE 

Cl. CALCULATE EP = INV ( IPT*KP*IP ) - THE CANTILERED 


IF (NEXP .EQ. 0 .OR. NTP .EQ. 0) GO TO 525 
CALL READIM ( I FACE, NR 1 ,NC1 , 1 ,K1 ) 

NERROR=2 

IF (NCI .NE. IF) GO TO 999 

525 CONTINUE 

FORM THE CANTILEVERED STIFFNESS 


d=1 
K= 1 

DO 540 I = 1 , ND 

IF (IFACE(d) .EQ. I) GO TO 530 
NVEC ( K ) = 1 

K=Kvi 

GO TO 540 
530 CONTINUE 

Js J+ 1 

540 CONTINUE 

CALL ZZERO (PKC.NN.ND) 

CALL ZSLADR ( 1 . . PK . NVEC . NN , PKC > 

CALL ZTRANS IPKC.PKCT) 

CALL ZZERO (PKNN.NN.NN) 

CALL ZSLADR ( 1 . . PKCT , NVEC . NN . PKNN ) 

INVERT THE CANTILEVERED STIFFNESS TO GET EP 


CALL ZINV3 (PKNN.EP. 1 ) 
C 

550 CONTINUE 


(6HREAD ) 
(6HTPMK12 ) 

( 6HL0ADTR ) 

( 6HEPEX ) 

( 6HREAD ) 

( 6HREAD ) 
(6HREAD ) 
(6HREAD ) 

(6HREAD ) 

( 6HREAD ) 

FLEXIBILITY 
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C2. EXPAND EP TO INCLUDE THE INTERFACE 


IF (NEXP .EQ. 0 .OR. NTP .EQ. 0 
♦ .OR. NEP .EQ. 0) GO TO 560 

CALL READIM ( I FACE , NR 1 ,NC1 , 1 ,K1 ) 

NERR0R=2 

IF (NCI .NE, IF) GO TO 999 

560 CONTINUE 


d=1 

DO 580 Isl.ND 
IF (J .GT. IF) GO TO 570 
Ir (IFACE(d) .NE. I) GO TO 570 
NVEC( I ) *0 


GO TO 580 
570 NVEC( I )*I"J+1 
580 CONTINUE 


CALL ZZERO (EPC.ND.NN) 

CALL ZSLADR ( 1 . ,EP,NVEC,ND,EPC) 
CALL ZTRANS (EPC.EPCT) 

CALL ZZERO (EPEX.ND.ND) 

CALL ZSLADR ( 1 . , EPCT , NVEC , ND , EPEX ) 

CALL ZMULT (EPEX, PM, EPEXPM) 


CALL 


C3. CALCULATE PL 1 AND PL2 


CALL ZMULT ( EPEXPM , ZZ , PL 1 ) 
CALL ZMULT ( EPEXPM, TP , PL2 ) 
GO TO 650 

600 CONTIN"E 

C4 . READ PL 1 AND PL2 


CALL ZREAD ( PL 1 ) 

CALL ZREAD ( PL2 ) 

650 CONTINUE 

CALL 


D. READ IN AND TRUNCATE THE FREQUENCIES 


CALL ZREAD ( FREQP ) 

CALL ZDISA I FREQP , 1 , 1 , 1 , NP , FREQPT ) 


CALL 

CALL 

CALL 


IF ( NWRITE .EQ. 0) GO TO 700 
E. WRITE DATA ON PAPER 


CALL ZWRITE ( FREQPT . 6HFREQPT ) 
CALL ZWRITE (TP.6HTP ) 

CALL ZWRITE ( PM 1 . 6HPM 1 ) 
CALL ZWRITE IPM2.6HPM2 ) 
CALL ZWRITE (PK2.6HPK2 I 
CALL ZWRITE ( PL 1 , 6H D L 1 ) 


ORIGINAL PAGE iS 
OF POOR QUALITY 


TIMC *K ( 6HEPEX ) 


TIMCHK ( 6HL0ADTR ) 

TIMCHK ( 6HREAD ) 
TIMCHK ( 6HREAD ) 
TIMCHK (6HWRITE ) 
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PROGRAM INTFACE ( INPUT .OUTPUT , TAPE5=INPUT , TAPE6=0UTPUT , 

+ TAPE10.TAPE30.TAPE31 .TAPE32.TAPE40) 

c 

1 CAU START 

CALL TIMCHK (6HTBEGIN) 
CALL TIMCHK (6H2INTF ) 

CALL ZINTF 

CALL TIMCHK (6HZINTF ) 
CALL TIMCHK (6HTPRINT ) 

GO TO 1 
END 


************* 
* * 

* ZINTF * 

* * 
************* 


ORIGINAL PAGE IS 
OF POOR QUALITY 


SUBROUTINE ZINTF 

SUBROUTINE ZINTF PRODUCES ALL BOOSTER/PAYLOAD INTERFACE RELATED 
INPUT DATA NECESSARY TO RUN PROGRAM RESPONS. 

DEVELOPED BY RC ENGELS AND TG SHANAHAN, JULY 1981. 

COMMENTS 


1. SUBROUTINE ZINTF IS PART OF A COMPLETE BOOSTER/PAYLOAD 
INTEGRATION SOFTWARE PACKAGE USING A DIRECT NUMERICAL 
INTEGRATION TECHNIQUE. A DISCUSSION OF THIS TECHNIQUE 
CAN BE FOUND IN "STRUCTURAL DYNAMICS PAYLOAD LOADS ESTIMATES- 
F INAL REPORT, MAY 1981". 


2. THE FOLLOWING DATA IS PUT ON NWFILE : 

B2 = THE INTERFACE/BOOSTER MASS COUPLING MATRIX. 

SIZE (IFB.NB). 

BPK2 = THE INTERFACE COUPLING STIFFNESS MATRIX BETWEEN 
THE BOOSTER AND THE PAYLOADS. SIZE (IFB.IFB). 
BPM2 * THE INTERFACE COUPLING MASS MATRIX BETWEEN 

THE BOOSTER AND THE PAYLOADS. SIZE (IFB.IFB). 
FREQPA s THE ASSEMBLED FREQUENCY MATRIX FOR ALL THE 


PAYLOADS IN PARTITION-LOGIC. 

FREQPA = ( F 1 ( PAY 1 ) , F2 ( PAY 1 ) , FN ( PAY 1 ) , 

F1IPAY2), F2IPAY2) FN ( PAY2 ) , 


M(PAYM) , F2IPAYM) FN(PAYM) ) 

FREQI = THE INTERFACE FREQUENCY VECTOR. SIZE (1.IFB) 

P2 = THE INTERFACE/PAYLOAD MASS COUPLING MATRIX. 

SIZE (IFB.NPI 

PHI IB = THE INTERFACE MODES MATRIX FORMED BY SOLVING THE 
EIGENVALUE PROBLEM FOR 8PM2 AND BPK2. 

SIZE ( IFB.IFB) . 


3. SUBROUTINE ZINTF CALL THE FOLLOWING FORMA SUBROUTINES: 
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- PAGEHD, READIM, TIMCHK , ZASSEM, ZATXB, ZM2A, ZREAD, ZRVAD 
ZSAVEL , ZSAVEW, ZSIZE, ZWRITE, ZWRKFL , ZZBOMB, ZZERO 

SUBROUTINE ARGUMENTS 


ORIGINAL PAGE IS 

SUBROUTINE ZINTF HAS NO SUBROUTINE ARGUMENTS. OF POOR QUALITY 


EXAMPLE OF CALLING PROGRAM ON CDC 172/720/730. 


FILE ASSUMPTIONS : 

-TAPE1 = WORK FILE REQUIRED BY ZINTF. NWRKFL= 1 

-TAPE10 = FORMA FILE (FOR INPUT DATA). NOTE THAT MORE 

THAN ONE FORMA FILE MAY BE NECESSARY IF INPUT 
DATA IS RECORDED ON SEVERAL FORMA FILES. 

-TAPE 1 1 = FORMA FILE (FOR OUTPUT). NWFILE=11 


PROGRAM INTFACE ( INPUT .OUTPUT , TAPE5= INPUT , TAPE6=0UTPUT , 

+ TAPE1 , TAPE10 , TAPE 1 1 ) 

1 CALL START 

CALL TIMCHK ( 6HTBEGIN ) 
CALL TIMCHK ( 6HZINTF ) 

CALL ZINTF 

CALL TIMCHK ( 6HZINTF ) 
CALL TIMCHK ( 6HTPRINT ) 

GO TO 1 
END 


INPUT FORM 


CALLING PROGRAM MUST - CALL START - 


READ NPAY (15) 

READ NWFILE.NWRKFL ,NWRITE (315) 

READ IFB, NPTOT (215) 

CALL ZREAD ( BM1 ) 

CALL ZREAD (BM2) 

CALL ZREAD ( BK2 ) 

DO 1 K= 1 , NPAY 

READ JFP.NP (215) 


CALL READIM < IFACEP, 1 , NR 1 , 1 . K 1 ) 
CALL ZREAD ( PM 1 ) 

CALL ZREAD ( PM2 ) 

CALL ZREAD ( PK2 ) 

CALL ZREAD ( FREQPT ) 

1 CONTINUE 
RETURN 

DEFINITION OF INPUT VARIABLES 


BK2 = TBT *BK*T6 . BOOSTER STIFFNESS MATRIX REDUCED TO THE 
INTERFACE IN PART IT ION-l OGIC . SIZE < IFB. IFB) . 

WHEN THE INTERFACE IS DETERMINATE , BK2 = 0 . 

BM1 s BM 1 = TBT *BM*IB*PHINB . BOOSTER COUPLING MASS MATRIX 
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BETWEEN INTERFACE AND NON- INTERFACE DOFS IN PARTITION- 
LOGIC. SIZE (IFB.NB). 

BM2 * TBT*BM*TB. BOOSTER MASS MATRIX REDUCED TO THE 
INTERFACE IN PARTITION-LOGIC. SIZE (IFB.IFB). 

FREQPT = THE TRUNCATED, CANTILEVERED FREQUENCY VECTOR FOR 

THE KTH PAYLOAD IN PARTITION-LOGIC. SIZE (1,NP(K)). 
IFB = NUMBER OF INTERFACE DOFS ON THE BOOSTER SIDE. 

(INCLUDING THE SUPERFLUOUS INTERFACE DOFS) 

IFP = NUMBER OF INTERFACE DOFS IN PAYLOAD K. 

IFACEP = VECTOR OF INTEGERS THAT TELL THE LOCATION OF 

PAYLOAD K INTERFACE DOFS IN THE BOOSTER INTERFACE. 
IFACEP(I) = LOCATION OF PAYLOAD K INTERFACE DOF I 
IN INPUT MATRIX BM1. SIZE ( IFP(K) ) . 

NP = NU¥ n ER OF TRUNCATED PAYLOAD MODES. NUMBER OF COLUMNS 
IN FREQPT, AND NUMBER OF ROWS IF PM1 FOR PAYLOAD K. 
NPTOT = THE TOTAL NUMBER OF PAYLOAD DEGREES OF FREEDOM. 

THE SUM OF ALL NP' S FOR PAYLOADS 1 THRU NPAY . 

NPAY = NUMBER OF PAYLOADS. 

NWFILE = LOGICAL FILE NUMBER FOR OUTPUT DATA. (E.G. NTAPE=11) 
NWRITE = 0 RESULTS ARE NOT PRINTED ON PAPER. 

1 RESULTS ARE PRINTED ON PAPER. 

NWRKFL = LOGICAL FILE NUMBER FOR WORKFILE. (E.G. NWRKFL= 1 ) 

THE INTERFACE AND NON- INTERFACE DOFS IN PARTITION- 
LOGIC. SIZE ( IFP ( K ) , IFP ( K ) ) FOR THE KTH PAYLOAD. 

PM1 = TPT*PM*IP*PHINP. PAYLOAD COUPLING MASS MATRIX BETWEEN 
THE PAYLOAD AND INTERFACE. SIZE ( IFP(K) ,NP(K) ) . 

PM2 = TPT*PM*TP . PAYLOAD MASS MATRIX REDUCED TO THE 

INTERFACE IN PARTITION-LOGIC. SIZE ( IFP(K) , IFP(K) ) . 
PK2 = TPT*PK*TP. PAYLOAD STIFFNESS MATRIX REDUCED TO THE 
INTERFACE IN PARTITION-LOGIC. WHEN THE INTERFACE 
IS DETERMINATE, PK2=0. SIZE ( IFP(K) , IFr (K) ) . 

NERROR EXPLANATION 


1 = NUMBER OF ALLOWABLE PAYLOADS HAS BEEN EXCEEDED. 

THIS CAN BE CORRECTED BY INCREASING KP AND CHANGING 
THE DIMENSION STATEMENT ACCORDINGLY. 

3 = SIZE OF IFACE FOR PAYLOAD K IS NOT EQUAL TO IFP(K). 

4 = ROW SIZE OF PM2 FOR PAYLOAD K IS NOT EQUAL TO IFP(K). 

5 = SIZES OF PM1 , PM2 AND Pk2 ARE NOT CONSISTENT. 

6 = SIZES OF PM1 AND FREQPT ARE NOT CONSISTENT. 

7 = COLUMN SIZE OF PM1 FOR PAYLOAD K IS NOT EQUAL TO NP(K>. 
d = INPUT SIZE OF IFACE OF SUPERFLUOUS INTERFACE DOFS 

IS NOT EQUAL TO IFS. 

9 = ASSEMBLED SIZE OF PM2 AND PK2 IS NOT CORRECT. 


A. DIMENSION .COMMON .DATA, FORMAT 


COMMON /NITNOT/ NIT, NOT 
COMMON /LSTRT4/ NLINE.NLPP 
DIMENSION I VEC ( 200 ) , IFACEP ( 200 ) 

C 

DATA K 1 . KR /500.200/ 

C 

1000 FORMAT (10151 
1100 FORMAT ( 10E10.0) 

2001 FORMAT (///// ,50X ,*INPUT DATA TO ZINTF* , / , 

+ 50X , * * . 

+ /////. 55X,*NWFILE = * , 15 , / . 55X , *NWRKFL 

♦ 55X , *NWR ITE =*.15,//, 

+ 29X,*NUMBER OF BOOSTER INTERFACE DOFS 

* , 10X,*UF8 = *, 15, *>*,//, 
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=*.15,//. 
= *.15 
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+ 


+ 

2002 FORMAT 


+ 

2003 FORMAT 
+ 


+ 

2004 FORMAT 
+ 


23X, ‘NUMBER OF TCTAL PAYLOAD MODES RETAINED ** 

, 15, 10X,*(NPTOT s*. 15,*)* ) 

I//.40X, ‘INPUT DATA FOR PAYLOAD* , 15 , / 

, 40X , * *,// 

,28X, ‘NUMBER OF PAYLOAD INTERFACE DOFS **,15,//. 

22X , ‘NUMBER OF PAYLOAD TRUNCATED MODES USED =*,I5,//, 
22X , *1 VEC OF PAYLOAD INTERFACE DOF LOCATIONS IN THE*. 

* BOOSTER INTERFACE*,/, 

22X , * *, 

* *,//) 

( // , 22X , *1 VEC OF SUPERFLUOUS INTERFACE DOF LOCATIONS* 

,* IN THE BOOSTER*,/, 

22X , * * 

,* *,////) 

(///,35X, ‘INPUT DATA FOR THE * , 15 . * PAYLOADS*,/, 

, 35X , * *,//> 


********************* 


BEGINNING OF PROGRAM 
********************* 


origin ^ 

OF POOR QUALITY 


B. READ SUBROUTINE INPUT PARAMETERS 


READ (NIT, 1000) NPAY 

READ (NIT. 1000) NWFILE , NWRKFL , NWRITE 

READ (NIT, 1000) IFB , NPTOT 

CALL PAGEHD 

WRITE (NOT, 2001) NWFILE, NWRKFL, NWRITE. IFB. IFB, NPTOT, NPTOT 
CALL 2WRKFL (NWRKFL) 


C READ AND AND CHECK THE SIZE OF BOOSTER QUANTITIES 


CALL ZREAD (BM1) 
CALL ZREAD ( BPM2 ) 
CALL ZREAD ( BPK2 ) 


CALL ZSIZE (BM1.IF.NB) 

CALL ZSIZE (BPM2.IF2.IF3) 

CALL ZSIZE (BPK2.IF4.IF5) 

NERROR= 1 

IF (IFB .NE. IF) GO TO 999 

IF (IFB .NE. I F 2 .OR. IF2 .NE. IF3) GO TO 999 

IF (IFB .NE. IF4 .OR. IF4 .NE. IF5) GO TO 999 

D. READ IN AND CHECK THE SIZES OF PAYLOAD QUANTITIES 
ASSEMBLE FREQPA AND P: AND COUPLE THE BOOSTER 
BOOSTER AND PAYLOAD INTERFACE QUANTITIES 


NP$=0 

CALL ZZERO (FREQPA. 1 .NPTOT) 
CALL ZZERO (P, IFB. NPTOT) 

DO 40 K= 1 , NPAY 
CALL PAGEHD 

WRITE (NOT.2CD4) NPAY 
NLINE=NLINE+ 15 
READ (NIT. 1000) IFP, NP 
WRITE (NOT, 2002' K.IFP.NP 
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CALL READIM ( IFACEP , 1 , IVSIZE , 1 ,K1 ) 


NERR0R=2 
GO TO 999 


C 


C 


C 


IF ( IFP .NE. IVSIZE) 

CALL ZREAD (PM1) 

CALL ZREAD ( PM2 ) 

CALL ZREAD (PK2) 

CALL ZREAD (FREQPT) 

CALL ZSIZE (PM2.IF1.IF2) 

CALL ZSIZE (PK2.IF3.IF4) 

CALL ZSIZE (PM1 , IF5.NP1 ) 

CALL ZSIZE ( FREQPT ,N01 ,NP2) 

IF ( IF 1 .NE. IFP) 

IF I IF 1 .NE. IF2 .OR. IF 1 .NE. 

IF 1 .NE. IF4 .OR. IF 1 .NE. 

IF (NP1 .NE. NP2 ) 

IF (NP1 .NE. NP) 


ORIGINAL PAGE IS 
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NERROR*3 
GO TO 999 
NERR0R=4 

IF3 .OR. 

IF5) GO TO 999 

NERROR=5 
GO TO 999 
NERR0R=6 
GO TO 999 


DO 20 1=1, NP 
IVEC( I ) =NPS+I 
20 CONTINUE 

CALL ZRVAD ( 1 . 0 . PM2 , IFACEP , IFACEP , IVSIZE . IVSIZE . BPM2 ) 
CALL ZRVAD ( 1 . 0 , PK2 , IFACEP , IFACEP , IVSIZE , IVSIZE , BPK2) 
CALL ZRVAD ( 1 . 0 , PM1 , IFACEP , I VEC, IVSIZE ,NP , P ) 

CALL ZASSEM (FREQPT, 1 ,NPS+1 .FREQPA) 

NPS=NPS+NP 


C 

40 CONTINUE 
C 

NERROR=7 

IF ( NPS .NE. NPTOT ) GO TO 999 


F. SOLVE THE EIGENVALUE PROBLEM FOR THE INTERFACE 
MASS, BPM2 , AND THE INTERFACE STIFFNESS, BPK2 . 


CALL TIMCHK ( 6HZM2A ) 

CALL ZM2A ( BPM2 , BPK2 , PHI IB , FREQI , NWRITE , 6HPHI IB .6HFREQI 
♦ ,MATUI .MATDI , MAT 3 1 ,MAT4I ,MAT5I ,MAT6I , 

+ IFB.IFB, 1.0,20) 

CALL TIMCHK ( 6HZM2A ) 


G. CALCULATE B2 AND P2 


CALL ZATXB ( PHIIB.BM1 ,B2» 

CALL ZATXB (PHIIB.P.P2) 

IF (NWRITE .EQ. 0) GO TO 180 

H. WRITE MATRICES ON PAPER 


CALL ZWRITE ( BPM2 . 6HBPM2 ) 
CALL ZWRITE ( BPK2 , 6HBPK2 ) 

CALL ZWRITE (B2.6HB2 ) 

CALL ZWRITE (P2.6HP2 ) 

CALL ZWRITE ( FRFQPA , 6HFREQPA 1 
C 

C I. WRITE MATRICES ON NWFILE 
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180 CALL ZSAVEW 1 FREQI .6HFREQI .NWFILE) 
CALL ZSAVEW (B2.6HB2 .NWFILE ) 

CALL ZSAVEW (P2.6HP2 .NWFILE) 

CALL ZSAVEW (BPM2.6HBPM2 .NWFILE) 
CALL ZSAVEW (BPK2.6HBPK2 .NWFILE) 
CALL ZSAVEW (PHIIB.6HPHIIB .NWFILE) 
CALL ZSAVEW (FRE0PA.6HFREQPA. NWFILE) 

J. WRITE LIST OF MATRICES ON NWFILE 


CALL ZSAVEL (NWFILE) 

C 

RETURN 

999 CALL ZZBOMB ( 6HZINTF .NERROR) 
FNH 


ORIGINAL PAGE IS 
0F POOR QUALITY 
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c 

c 


c 


PROGRAM FORCE ( INPUT .OUTPUT , TAPE5* INPUT , TAPE6=0Ui PUT , 
+ TAPE20, TAPE30 , TAPE31 , TAPE32 , TAPE40 ) 


1 CALL START 


CALL ZFORCE 


RIGINAL 


CALL TIMCHK (6HTBEGIN) 1 
CALL TIMCHK ( 6HZFORCE ) 

CALL TIMCHK ( 6HZFORCE ) 
CALL TIMCHK (6HTPRINT ) 


GO TO 1 
END 


*********** ************************** 

* * 

* ZFORCE * 

* * 
************************************* 

SUBROUTINE ZFORCE 

SUBROUTINE ZFORCE TAKES INPUT TIME AND FOR DATA AND PROCESSES 
IT TO GET THE FINAL FORCE VECTORS FOR USE IK A NUMERICAL 
INTEGRATION RESPONSE ROUTINE. 


DEVELOPED BY TG SHANAHAN, FEB. 1982. 
COMMENTS 


1 . 


2 . 

3. 


SUBROUTINE ZFORCE IS PART OF A COMPLETE BOOSTER/PAYLOAD 
INTEGRATION SOFTWARE PACKAGE USING A DIRECT NUMERICAL 
INTEGRATION TECHNIQUE. A DISCUSION OF THIS TECHNIQUE CAM 
BE FOUND IN "STRUCTURAL DYNAMICS PAYLOAD LOADS ESTIMATES - 
FINAL REPORT, MAY 1982". 

DATA IS OUTPUT ON NFORFL SEQUENTIALLY. 

NFORFL CONTAINS: 

A. A HEADER WITH RUN NO., DATE, START TIME, TIME STEP SIZE 
END TIME, NUMBER OF FORCE POINTS, AND THE NUMBER OF TIME 
POINTS. 

B. THE TIME AND THE CORRESPONDING FORCE DATA FOR THAT TIME 

T1 , FBI (T1 ) ,FB2(T1 ) FBN ( T 1 ) , F 1 1 ( T 1 ) , . . , F I F ( T 1 ) . 


T2.FB1IT2) 


, F IF ( T2 


TE.FBKTE) , F62ITE) 


,FBN(TE) ,FI1(TE) , ! 


.FIF(TE) 


WHERE, FBI THRU FBN ARE THE FORCE COMPONENTS ACTING 
ON THE BOOSTER. FB= ( PHINBR )T*F . 

AND. F 1 1 THRU FIF ARE THE FORCE COMPONENTS ACTING 
ON THE INTERFACE. F I = I TBR ) T*F . 

4. THIS SUBROUTINE USES VARIOUS COMBINATIONS OF SUBROUTINES TO 
GENERATE NFORFL DEPENDING ON THE SIZE OF THE INPUT SYSTEM. 
BECAUSE OF THE NATURE OF PARTITION-LOGIC SUBROUTINES A 
PURE PARTITION LOGIC INTERPOLATION SUBROUTINE SUCH AS ZTERP 
IS VERY SLOW COMPARED TO A DENSE-LOGIC VERSION. THEREFORE, 
SEVERAL SPECIALIZED SUBROUTINES WERE CODED FOR USE WITHIN 
THIS SUBROUTINE. THESE ROUTINES ARE ZTERP 1 AND ZTOSEQ2 . 
HOWEVER. WHILE THESE SUBROUTINES ARE FASTER THAN THEIR 
STRAIGHT PART I T ION-LOGIC COUNTERPARTS, ZTERP AND ZTOSEQ3 , 
THEY ARE SIZE LIMITED AND THEREFORE CAN NOT BE USED ALL THE 
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TIME. THIS LIMITING SIZE IS SET BY THE PARAMETER KCNB 
WHICH IS THE DIMENSION SIZE OF A MATRIX IN THE COMMON BLOCK 
/LWORK1/ THAT IS USED IN THESE SUBROUTINES. THE 
ORIGINAL VALUE OF KCNB IS 600. HOWEVER, THIS MAY BE 
INCREASED OR DECREASED AS STORAGE REQUIREMENTS DEMAND 
BY CHANGING ITS VALUE IN THE CORRECT DATA STATEMENTS 
AND IN THE COMMON BLOCK DIMENSIONS. 

5. SUBROUTINE ZFORCE CALLS THE FOLLOWING FORMA SUBROUTINES: 

- DTOZ, PAGEHD, TIMCHK , WRITE, ZASSEM, ZMULT , ZREAD, ZSIZE, 
ZTOD, ZTRANS , ZWRKFL , ZZBOMB, ZZERO 

6. IT ALSO CALL THE FOLLOWING SPECIAL PURPOSE SUBROUTINES THAT 
WERE DEVELOPED ESPECIALLY FOR THIS SOFTWARE PACKAGE: 

- ZTERP , ZTERP1 , ZTOSEQ2 , ZT0SEQ3 

INPUT FORM 


READ NWRKFL , NWRITE , NFORFL (315) 

READ STARTT , ENDT , DELTAT (3E10.0) 

READ NF.NB.IF (315) 

READ IFTERP (15) 

CALL ZREAD (TIME) 

CALL ZREAD (FORCE) 

CALL ZREAD ( PHINBR ) 

CALL ZREAD ( TBR ) 

DEFINITION OF INPUT VARIABLES 


DELTAT 

ENDT 

FORCE 

IF 

IFTERP 

NB 

NF 

NFORFL 

NTP 

NWRITE 

NWRKFL 

PHINBR 

TIME 

TBR 


TIME STEP BETWEEN OUTPUT INTERPOLATED TIME POINTS. 
END TIME FOR INTERPOLATION TIME RANGE. 

INPUT MATRIX OF FORCE VECTORS IN PARTITION-LOGIC. 
SIZE (NTP .NF ) . 

NUMBER OF BOOSTER INTERFACE POINTS. 

0 IF THE FORCE DATA HAS NOT BEEN PREVIOUSLY 
INTERPOLATED. 

1 IF THE FORCE DATA HAS BEEN INTERPOLATED. 

NUMBER OF TRUNCATED BOOSTER MODES RETAINED. 

NUMBER OF ROWS IN PHINBR. 

NUMBER OF FORCE POINTS ON THE BOOSTER. 

NUMBER OF COLUMNS IN FORCE. 

LOGICAL UNIT NUMBER FOR OUTPUT. CONTAINS 
INTERPOLATED DATA SEQUENTIALLY. 

NUMBER OF TIME POINTS IN FORCE TABLE. 

NUMBER OF ROWS IN FORCE. 

0 RESULTS ARE NOT PRINTED ON PAPER. 

N RESULTS ARE PRINTED EVERY N TIME STEPS. 

LOGICAL UNIT NUMBER OF A WORK FILE REQUIRED 
BY ZFORCE. 

THE TRUNCATED EXPANDED CANTILEVERED BOOSTER MODES 
MATRIX IN PARTITION-LOGIC WITH ROWS CORRESPONDING 
TO ZERO APPLIED FORCES HAVE BEEN DELETED. 

SIZE ( NB , NF ) . 

INPUT VECTOR OF TIME DATA IN PARTITION LOGIC. 
CONTAINS DATA CORRESPONDING TO THE ROWS IN THE 
FORCE MATRIX. SIZE (NTP, 1 ) . 

THE BOOSTER CONSTRAINT MODAL MATRIX IN PARTITION- 
LOGIC WHERE ROWS CORRESPONDING TO ZERO APPLIED 
FORCES HAVE BEEN DELETED. SIZE (NF.IF). 


A. COMMONS, DIMENSIONS, AND FORMATS 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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COMMON 

/ L STRT 4/ 


COMMON 

/NITNOT/ 


COMMON 

/LW0RK1/ 

c 



c 

DATA 

KCNB 


DATA 

KF 


DATA 

BUF 

c 



1000 

FORMAT 

( 1015) 

1 100 

FORMAT 

( 1 0E 10.0) 

1200 

FORMAT 

( // , 4X , *TI 


NLINE , NLPP 
NIT, NOT 

F(6000) , F I LLER ( 13200} 


/600/ 

/6000/ 

/-1.E50/ 


*,55X,*FORCE POINTS*/ 


ORlOmAL 
OF POOR stjAUTY 


1201 FORMAT 

1202 FORMAT 

1203 FORMAT 

1204 FORMAT 
+ 

1205 FORMAT 


1206 FORMAT 
+ 

+ 

1207 FORMAT 

1208 FORMAT 
+ 

2000 FORMAT 
+ 


+ 

2001 FORMAT 


, 4X , * *,55X,* *) 

(20X, 10(*(*I2*)*,7X)/) 

(//IX, 1PE11 .4.4X, 10( 1PE11 .3) ) 

( 16X, 1 0 ( 1 PE 1 1 .3) ) 

( // , 48X , *STARTT ** , F 10 .6 , / , 50X , *ENDT »*,F10.6,/, 
48X,*DELTAT =*,F10.6> 

(/////, 50X,*INPUT PARAMETERS*, /.50X, 16 ( 1H-) ,///, 

48X , *NWRKFL **,15,/, 

48X,*NFORFL **,15,//, 

30X,*DATA IS WRITTEN ON PAPER EVERY *,I5,* TIME STEPS*) 

( / / 30X , *NUMBER OF FORCES APPLIED TO BOOSTER **,I5,//, 

32X , *NUMBER OF TRUNCATED BOOSTER MODES **,I5,//, 

41 X , *NUMBER OF INTERFACE DOFS **,I5) 

( / / , 27X ,* INTERPOLATION OF THE FORCE DATA IS NEEDED*, 5X, 

* ( IFTERP = 0)*) 

( / / , 25X ,* INTERPOLATION OF THE FORCE DATA IS NOT NEEDED*, 
,5X,*( IFTERP *1)*) 

( 10( / ) ,40X,*FORCE - TIME HISTORY* ,/, 40X . 20 ( 1H- ),// , 

40X , *STARTT =*, 1 PE 1 3 . 3 , // , 42X , *ENDT = * , 1 PE 1 3 . 3 , // , 
40X , *DELTAT =* , 1 PE 1 3 . 3 , // , 

14X , *NUMBER OF FORCE POINTS (NB + IF) =*,I6,//, 

26X , *NUMBER OF TIME STEPS =*,I6) 

( 4( / ) ,40X,*TIME =*, 1PE13.3./.40X, 19 ( 1H- ) ,/) 


**************************** 


BEGINING OF PROGRAM 
**************************** 


B. INPUT VARIABLES 


READ (NIT, 1000) NWRKFL , NWRITE , NFORFL 
READ (NIT, 1100) STARTT , ENDT , DELT AT 
READ (NIT, 1000) NF ,NB , IF 
READ (NIT, 1000) I r T E R P 


CALL PAGEHD 
WRITE (NOT, 1205) 
WRITE (NOT, 1204) 
WRITE (NOT, 1206' 

IF (IFTERP .EQ. 0) 
IF (IFTERP .EQ. 1) 


NWRKFL, NFORFL, NWRITE 
STARTT, ENDT, DELTAT 
NF.NB. IF 

WRITE (NOT, 1207) 
WRITE (NOT, 1208) 


CALL ZWRKFL (NWRKFL) 


C. READ TIME AND FORCE DATA 


CALL ZREAD (TIME) 
CALL ZREAD (FORCE) 
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CALL 2READ ( PHINBR ) 
CALL 2READ ( TBR ) 


ORIGINAL PASS JS 
OF POOR QUALITY 


D. PERFORM ERROR CHECKS AND FORM THE FORCE MULTIPLICATION MATRIX 


CALL TIMCHK (6HASSEM ) 

CALL 2SIZE (FORCE, NR 1 , NCI) 

CALL 2SIZE (PHINBR, NR2.NC2) 

CALL ZSIZE ( TBR , NR3 , NC3 ) 

NERROR* 1 

IF (NF .NE. NCI ) GO TO 999 

NERROR=2 

IF (NR2 .NE. NR3 .OR. NR2 .NE. NF ) GO TO 999 

McppnPs? 

IF (NC2 . NE. MB) GO TO 999 

NERR0R=4 

IF (NC3 .NE.IF) GO TO 999 

IF ( IFTERP .NE. 1) GO TO 30 

NERROR=5 

CALL ZTOD (TIME , F ,NT , 1 , KF , 1 ) 

EPS=DELTAT/1 ,E08 
DO 20 1=1, NT 

IF ( ( STARTT+FLOAT( 1-1 )*DELTAT-F( 1 1 1 .GT. EPS) GO TO 999 

20 CONTINUE 


30 NCTOT =NB+1F 

CALL ZZERO ( PHITB , NR2 , NCTOT ) 

CALL ZASSEM ( PHINBR , 1 , 1 , PHITB ) 

CALL ZASSEM ( TBR , 1 , NB+ 1 , PHITB ) 

CALL TIMCHK ( 6HASSEM ) 

IF (IFTERP .EQ. 0 .AND. NCTOT .GT. KCNB ) GO TO 50 


CALL ZMULT ( FORCE . PHITB , TABF ) 


CALL TIMCHK (6HF*PHTB> 
CALL TIMCHK ( 6HF*PHTB I 


IF (IFTERP .EQ. 1) GO TO 100 

E. PERFORM INTERPOLATION USING SUBROUTINE ZTERP1 


CALL TIMCHK ( 6HZTERP 1 ) 

CALL ZTERP1 ( TIME . TABF , STARTT , ENDT . DELTAT , NFORFL ) 

CALL TIMCHK ( 6HZTERP 1 ) 

GO TO 200 

F. PERFORM INTERPOLATION USING SUBROUTINE ZTERP 


50 CONTINUE 

CALL TIMCHK ( 6HPRETER ) 

NTP=( ENDT- STARTT ) /DELTAT+1 . 1 
C 

DO 70 1=1, NTP 

F { I ) =$TARTT + FLOAT I I - 1 ) *DELTAT 
70 CONTINUE 
C 

CALL DTOZ ( F , T2 , 1 . NTP . 1 , KF I 
C 

CALL ZTRANS I TIME , T 1 ) 

CALL ZTRANS (FORCE. F H 



ooo o o o ooo oo o ooo 


CALL DTOZ (F .TIME, NT?, 1 ,KF , 1 ) 

C 

CALL ZTERP ( T 1 , T2 , F 1 , F2 ) 

C 

CALL ZTRANS (F2.F2T) 

CALL ZMULT ( F2T , PHI TB , TABF ) 

G. WRITE INTERPOLATION RESULTS ON NFORFL 
100 IF (NCTOT .GT. KCNB ) GO TO 120 
CALL ZT0SEQ2 ( TIME , TABF , NFORFL ) 

GO TO 200 
120 CONTINUE 

CALL ZTOSEQ3 (TIME, TABF .NFORFL) 


CALL TIMCHK (6HPRETER) 
CALL TIMCHK ( BHZTERP ) 
CALL TIMCHK ( 6HZTERP )\ 
CALL TIMCHK (6HT-MULT) 

CALL TIMCHK (6HT-«ULi; 


CALL TIMCHK ( 6HZT0S2 ) 
CALL TIMCHK (6HZT0S2 } 

CALL TIMCHK ( 6HZTOS3 ) 
CALL TIMCHK (6HZTOS3 ) 


200 IF (NWRITE .EQ. 0) RETURN 

H. WRITE INTERPOLATED RESULTS ON PAPER 


CALL TIMCHK ( 6HWRITE ) 

REWIND NFORFL 
NW=NWRI TE 

READ (NFORFL) IRUNNO, I DATE , START! , ENDT , DELTAT , NBIF , NTP , 

+ ( BUF ,1=1,10) 


CALL PAGEHD 

WRITE (NOT, 2000) STARTT , ENDT , DELTAT , NBI F , NTP 
CALL PAGEHD 


DO 300 Js 1 , NTP 

READ (NFORFL) T , ( F ( I ) , 1*1 ,NBIF ) 

IF (NW .LT. NWRITE .AND. J .NE. NTP) 
NLlNE=NLINE+7 

IF INLINE .LE. NLPP) GO TO 280 
CALL PAGEHD 
NL INE=NL INE+7 
280 WRITE (NOT, 2001) T 

CALL WRITE ( F . 1 , NBIF , 6HFORCES , 1 , KF ) 
NW=0 

290 NW=NW+1 
300 CONTINUE 


GO TO 290 


ORIGINAL rr IS 
OF POOR QUALITY 


CALu TIMCHK (6HWRITE I 


I. EXIT 


RETURN 

C 

999 CALL ZZBOMB ( 6HZF0RCE , NERROR I 
END 
C 
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c 

c 


PROGRAM RESPONS ( INPUT .OUTPUT , TAPE5= INPUT , TAPE6»0UTPUT , 

+ TAPE20 , 7 APE 30 , TAPE 31 , TAPE32 , TA n E33 , TAPE40 ) 


i Call start 
CALL ZRESP 


ORIGINAL PAGE IS 
OF POOR QUALITY 


GO TO 1 
END 


CALL TIMCHK 
CALL TIMCHK 

CALL TIMCHK 
CALL TIMCHK 


(6HTBEGIN) 
(6HZRESP ) 

(6HZRESP ) 
(6HTPRINT ) 


******************************* 
* * 

* ZRESP * 

* * 
******************************* 


SUBROUTINE ZRESP 


SUBROUTINE ZRESP PRODUCES THE RESPONSE OF THE COUPLED 
BOOSTER/PAYLOAD SYSTEM. 

DEVELOPED BY RC ENGELS AND TG SHANAHAN, JANUARY 1982. 


COMMENTS 


1. SUBROUTINE ZRESP IS PART OF A COMPLETE BOOSTEFv/PAYLOAD 
INTEGRATION SOFTWARE PACKAGE USING A DIRECT NUMERICAL 
INTEGRATION TECHNIQUE. A DISCUSSION OF THIS TECHNIQUE CAN 
CAN BE FOUND IN “STRUCTURAL DYNAMICS PAYLOAD LOADS 
ESTIMATES - FINAL REPORT, MAY 1982". 

?. SUBROUTINE ZRESP USES A MODIFIED FORMA OF THE NEWMARK- 
CHAN-BETA INTEGRATION SCHEME. 

3. THE FOLLOWING DATA IS PUT ON NWFILE: 

A. A HEADER CONTAINING - RUNNO, DATE, STARTT , ENDT, DELTAT, IF 

AND NP 

B. THE RESPONSE DATA : 

T 1 , (QIB( I ) , 1 = 1 , IF) , ( QNP 1 1 ) , I = 1 , NP ) , 

(QIBDI I ) , 1 = 1 , IF ) , (QNPD( I ) , 1 = 1 ,NP) , 

(QIBDD(I) ,1 = 1, IF), (QNPDDl I ) , 1*1 ,NP) , 

ALL OF THESE PROPERTIES ARE EVALUATED AT TIME = Tl. 

THIS STEP IS REPEATED FOR ALL TIME STEPS. 

4. SUBROUTINE ZRESP CALL S THE FOLLOWING FORMA SUBROUTINES: 

- PAGEHO , READ, TIMCHK, ZAABB, ZINV3 , ZMULT , ZREAD , ZS1ZE, 

ZTOD , ZTRANS , ZWRKFL , ZZBOMB 

5. SUBROUTINE ZRESP ALSO CALLS THE FOLLOWING SPECIAL PURPOSE 
SUBROUTINES THAT WERE DEVELOPED ESPECIALLY FOR THIS SOFTWARE 
PACKAGE: 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


- ZABDI, ZMULTCD, ZMULTDD 
SUBROUTINE ARGUMENTS 


SUBROUTINE ZRESP HAS NO SUBROUTINE ARGUMENTS. 


EXAMPLE OF A CALLING PROGRAM ON CDC 172/720/730 


FILE ASSUMPTIONS: 

- TAPE 1 * WORK FILE REQUIRED BY ZRESP. NWRKFL» 1 . 

- TAPE 10 = FORMA FILE (FOR INPUT DATA). NOTE THAT 

MO«»E THAN ONE FORMA FILE MAY BE NECESSARY 
IF NPUT DATA IS RECORDED CN SEVERAL FORMA 

- TAPE11 = SEQUENTIAL FILE (FOR OUTPUT DATA). NWFILE*11. 

PROGRAM RtSPNS ( INPUT, OUTPUT, TAPE5* INPUT , TAPE6=0UTPUT , 

' TAPEl , TAPE 10,T APE 1 1 ) 

1 CALL START 

CALL TIMCHK ( 6HTBEGIN ) 
CALL TIMCHK (6HZRESP ) 

CALL ZRESP 

CALL TIMCHK ( 6HZRESP i 
CALL TIMCHK ( 6HTPRINT ) 

GO TO 1 
END 


INPUT FORM 


CALLING PROGRAM MUST CALL START 


REAP NWFILE .NWRKFL .NWRITE .NFORFL (415) 

READ STARTT. ENDT, DELTAT (3E10.0) 

READ GAMMA, BETA (2E10.0) 

READ NF, NB, IF, NP (415) 

READ NDAMPB , NDAMPI , NDAMPP (315) 

CALL ZREAD ( FREQBT ) 

IF (NDAMPB .EQ. 0) GO TO 1 
CALL READ (DAMPb.NRl ,NC1 , 1 ,KB) 

GO TO 2 

1 READ ZETAB (E10.0) 


2 CALL ZREAD ( FREQI ) 

IF (NDAMPI .EQ. 0) GO TU 3 
CALL READ (DAMP I , NR2.NC2, 1 ,KI ) 

GO TO 4 

3 READ ZETAI (ElO.O) 

4 CALL ZREAD ( F ,<EQPA ) 

IF (NDAMPP .EQ. 0» GO TO 5 
CALL READ ( DAMPP.NR2 ,NC2 , 1 ,KP ) 

GO TO 6 

5 READ ZETAP (ElO.U) 

6 CALL ZREAD (B2) 

CALL ZREAD h»2) 

CALL ZREAD ( PHI IB > 

CALL READ (QNBG.NR? NC3.1.KB) 

CALL READ ( QNBD0.NR4.NC4, 1 , KB ) 

CALL READ ( QIB0.NR5.NC5, 1 ,KI ) 
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CALL READ (QI3D0,NR6,NC6, 1 ,KI> 
CALL READ (QNP0,NR7,NC7, 1 ,KP) 
CALL READ ( ONPDO , NR8 , NC8 , 1 ,KP) 


ORIGINAL PA - : 

OF POOR QUALITY 


DEFINTITION OF INPUT VARIABLES 


B2 

BETA 

DAMP6 

DAMPI 

DAMPP 

DELTAT 

ENDT 

FREOBT 

FREQI 

FREQPA 

GAMMA 

IF 

NB 

NDAMPB 


NDAMPI 


NDAMPP 


NF 

NFORFL 


NP 


NWFILE 

NWRITE 

NWRKFL 

P2 

PHI IB 
Q I BO 


THE INTERFACE/BOOSTER MASS COUPLING MATRIX IN 
PARTITION-LOGIC. SIZE (NB, IF) . 

INPUT PARAMETER FOR NEWMARK-CHAN-BETA NUMERICAL 
INTEGRATION TECHNIQUE. A GOOD VALUE IS BETA* 0.25 
BOOSTER MODAL DAMPING MATRIX IN DENSE-LOGIC. 
DIAGONAL MATRIX INPUT AS A ROW VECTOR. 

SIZE ( 1 , NB ) . 

INTERFACE MODAL DAMOPING MATRIX IN DENSE-LOGIC. 
DIAGONAL MATRIX INPUT AS A ROW VECTOR. 

SIZE ( 1 , IF ) . 

PAYLOAD MODAL DAMPING MATRIX IN DENSE-LOGIC. 
DIAGONAL MATRIX INPUT AS A ROW VECTOR. 

SIZE ( 1 , NP ) 

TIME STEP FOR INTEGRATION ROUTINE. 

STOPPING TIME FOR THE NUMERICAL INTEGRATION 
ROUTINE. 

TRUNCATED, CANTILEVERED BOOSTER FREQUENCY VECTOR 
IN PARTITION-LOGIC. SIZE (1,NB) 

INTERFACE FREQUENCY VECTOR IN PARTITION-LOGIC. 

SIZE ( 1 . IF ) 

TRUNCATED, CANTILEVERED. ASSEMBLED PAYLOAD 
FREQUENCY VECTOR FOR ALL PAYLOADS IN PARTITION- 
LOGIC. SIZE ( 1 , NP ) . 

INPUT PARAMETER FOR NEWMARK-CHAN-BETA NUMERICAL 
INTEGRATION TECHNIQUE. A GOOD VALUE IS GAMMAsO . 5 
NUMBER OF INTERFACE DOFS. 

NUMBER OF TRUNCATED, CANTILERED BOOSTER MODES. 

0 FOR A CONSTANT VALUE OF MODAL DAMPING IN THE 
BOOSTER MODAL DAMPING MATRIX. 

1 FOR A VARIABLE VALUE OF MODAL DAMPING IN THE 
BOOSTER MODAL DAMPING MATRIX. 

(MUST INPUT DAMPS FOR NDAMPB =1). 

0 FOR A CONSTANT VALUE OF MODAL DAMPING IN THE 
INTERFACE MODAL DAMPING MATRIX. 

1 FOR A VARIABLE VALUE OF INTERFACE MODAL 
DAMPING. MUST INPUT DAMPI WHEN NDAMPI « 1 . 

0 FOR A CONSTANT VALUE OF MODAL DAMPING IN THE 
PAYLOAD MODAL DAMPING MATRIX. 

1 FOR A VARIABLE VALUE OF MODAL DAMPING. 

MUST INPUT DAMPP FOR NDAMPP = 1. 

NUMBER OF DOFS IN BOOSTER WHERE FORCES ARE APPLIED. 
LOGICAL FILE NUMBER CONTAINING THE INTERPOLATED 
FORCE DaTA. THIS DATA IS SEQUENTIAL. 

TOTAL NUMBER OF TRUNCATED, CANTILEVERED PAYLOAD 
MODES. 

Lr'CAL FILE NUMBER FOR OUTPUT DATA. 

0 ntSULTS ARE NOT PRINTED ON PAPER. 

1 RESULTS ARE PRINTED ON PAPER. 

LOGICAL FILE NUMBER FOR WORK FILE. 

THE PAYLOAD/INTERFACE COUPLING MASS MATRIX. 

SIZE ( IF , NP ) . 

THE INTERFACE MODES MATRIX. SIZE IIF.IFI. 
DENSE-LOGIC VECTOR OF INITIAL MODAL DISPLACEMENTS 
OF THE INTERFACE DOFS AT STARTT. SIZE (I, IF) 
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QIBDO = DENSE-LOGIC VECTOR OF THE INITIAL MODAL VELOCITIES 
OF THE INTERFACE DOFS AT STARTT. SIZE (1,IF). 

QNBO = DENSE-LOGIC VECTOR OF THE INITIAL MODAL 

DISPLACEMENTS OF THE BOOSTER DOFS AT THE STARTT. 
SIZE < 1 , NB > . i 

QNBDO = DENSE-LOGIC VECTOR OF THE INITIAL MODAL VELOCITIES ' 
OF THE BOOSTER DOFS AT STARTT. SIZE ( 1 , NB ) 

QNPO = DENSE-LOGIC VECTOR OF THE INITIAL MODAL 

DISPLACEMENTS OF THE PAYLOAD DOFS. SIZE (1,NP). 

QNPDO = DENSE-LOGIC VECTOR OF THE INITIAL MODAL VELOCITIES 
OF THE PAYLOAD DOFS AT STARTT. SIZE (1,NP). 

ZETAB = VALUE OF BOOSTER MODAL DAMPING FOR ALL DOFS WHEN 
NDAMPB « 0. 

ZETAI = VALUE OF INTERFACE DAMPING FOR ALL DOFS WHEN 
NDAMPI =0. 

ZETAP = VALUE OF PAYLOAD MODAL DAMPING FOR ALl DOFS WHEN 
NDAMPP = 0. 

Ori.oi.'.AL PAG3 IS 

OF POOR QUALITY 

A. DIMENSION. COMMON, DATA, FORMAT 


COMMON /NITNOT/ NIT, NOT 

COMMON /LSTRT4/ NLINE.NLPP 

DIMENSION DK500) ,D2( 200 ) ,03(500) ,D4( 500) ,D5( 200) ,D6( 500), D7( 500) , 

* D8(200i , D9 ( 500 > , QNBO ( 500 ) , QNB ( 500 ) , QNBDO ( 500 ) , QNBD ( 500 ) , 

+ QNBDDC ( 500 ) , QN3DD ( 500 ) , QIBO ( 200 ) , QIB ( 200 ) , QIBDO ( 200 ) . 

+ QIBD(2C0> ,QIBDD0(200) , Q I BDD ( 200 > , QNPO (500) .QNPI500) , 

QNPDO « 500 ) , QNPD ( 500 ) , QNPDDO ( 500 ) , QNPDD ( 500 ) , OMB2 ( 500 > , 

+ OMP2 ( 500 > , FB ( 500 ) , F I ( 200 1 , FP ( 500 ) , 

+ HELP 1 1 1200) , 0M12( 200) 

C 

DATA KB ,KI ,KP /500,200,500/ 

DATA BUF /-1.E50/ 

C 

1000 FORMAT (1015) 

1100 FORMAT ( 1 OE 10.0) 

1200 FORMAT l//9X,8H TIME * ,F10.6> 

1250 FORMAT <//10X,*TIME = *.F10.6,4X,*(CONTINUED)*) 

1300 FORMAT (//9X.15H APPLIED FORCES /( 10X. 1P5E16.8) ) 

1400 FORMAT ( //5X , *INTERFACE RESPONSE (MODAL COORDINATES)*,/. 

+ 5X , * *, 

+ //9X,4H ROW,6X,13H ACCELERAT ION , 8X . 9H VELOCITY , 10X . 

* 13H DISPLACEMENT//, (10X, 13. 1P3E20. 8) ) 

2002 FORMAT ( // . 48X , *STARTT =* , F 10 .6, / , SOX , *ENDT =*,F10.6,/, 

+ 48X,*DELTAT =*,F10.6> 

2003 FORMAT ( // , 30X . *PARAMETERS FOR NEWMARK-CHAN-BETA INTEGRATION*, 

* * ROUTINE*, //,49X,*GAMMA «*,F10.6,/, 

+ 50X , *BETA =*,F10.6) 

1500 FORMAT (//4X,* NON- INTERFACE RESPONSE (MODAL COORDINATES )*,/, 5X . 

+ 1 3 ( 1H- ) , IX, 8< 1H- ) ,2X, 1 9 ( 1H- ) ,//9X,* R0W*,7X, 

* * ACCELERAT ION* . 9X , *VELOCITY* , 1 1 X , *DISPLACEMENT*// 

* . ( 10X.I3. 1P3E20.8) ) 

2001 FORMAT (/////, 50X.*INPUT PARAMETERS* ,/, 50X , 16( 1H- ),/// . 

+ 48X . *NWFILE ** , 15 , / , 48X , *NWRKFL =*,15,/, 

* 48X , *NFORFL =*,15,//. 

* 30X , *DATA IS WRITTEN ON PAPER EVERY *,I5.* TIME STEPS*) 

2004 FORMAT (/30X,*VALUE OF BOOSTER MODAL DAMPING IS CONSTANT*, 

+ 5X,*( NDAMPB = 1 »*) 

2005 FORMAT t/30X,*VALUE OF PAYLOAD ' ODAL DAMPING IS A CONSTANT*. 

* 5X,*( NDAMPP * 1 )*) 

2006 FORMAT ( / / 30X . *NUMBER OF FORCES APPLIED TO BOOSTER =*,15.//, 
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♦ 

+ 

♦ 


32 X , ‘NUMBER OF TRUNCATED BOOSTER MODES ••,15,//. 
4 IX, •NUMBER OF INTERFACE DOFS »*.I5,//, 

32X, ‘NUMBER OF TRUNCATED PAYLOAD MODES •*,15> 


******************** 

BEGINNING OF PROGRAM 


B. READ INPUT DATA 


ORIGINAL PAGE IS 
OP POOR QUALITY 


READ I NIT , 1000 > NWFILE .NWRKFL .NWR1TE ,NF0RFL 

READ (NIT, 1100) STARTT , ENDT .DELTAT 

READ (NIT, 1100) GAMMA, BETA 

READ (NIT, 1000) NF.NB.IF.NP 

READ (NIT, 1000) NDAMPB , NDAMPI , NDAMPP 

WRITE (NOT. 2001) NWFILE .NWRKFL .NFORFL .NWRITE 

WRITE (NOT, 2002) STARTT. ENDT, DELTAT 

WRITE (NOT, 2003) GAMMA, SETA 

IF ( NDAMPB .EQ. 0) WRI TE ( NOT . 2004 ) 

IF (NDAMPP . EQ. 0) WRITE ( NOT , 2005 ) 

WRITE (NOT, 2006) NF.NB.IF.NP 

CALL 2WRKFL (NWRKFL ) 

C. CALCULATION OF CONSTANTS 


CO»DELTAT*DELTAT 

C1 3 GAMMA*DELTAT 

C2*BETA*C0 

C3a( 1. -GAMMA )*DELTAT 
C4« (0.5- BETA )»C0 

D. CALCULATION OF THE VECTORS D1.D4. AND D7 


CALL TIMCHK ( 6HDVECS ) 

CALL ZREAD < FREOBT > 

CALL 2TOD ( FREOBT . QNB . 1 . NB2 . 1 , KB > 

NERROR« 1 

IF (NB ,NE . NB2) GO TO 999 

IF (NDAMPB . EQ. 0> GO TO 10 
CALL READ (QNBD.NR1 .NCI . 1 , KB ) 

IF (NB .NE. NCI) GO TO 999 

DO 20 1*1 , NB 

QNBD (I) * 1 2 . 5663706 1 *QNBD ( I ) *QNB < I ) 

OMB2< I )*39.4784i76*QNB( I ) *QNB( I i 
20 CONTINUE 
GO TO 30 
10 CONTINUE 

READ (NIT . 1100) 2ETAB 
DO 40 I * 1 , NB 

QNBD i I t*l2.5663?06l*ZETAB*QNB( 1 1 
OMB2 1 1 >*39. 4784 i76*QNB( I >*QNBi I > 

40 CONTINUE 
30 CONTINUE 

DO 50 1*1. NB 

01(1 >*1 .*Cl*QNbDi I > *C2*OMB2 1 1 ! 

1)4 ( I >=QNBDi i > ♦DELTAT *0MB2 ' I . 

07 1 I ' *C3*QNBDi I '♦C4*OMB2i I > 

50 CONTINUE 


C 
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C E. CALCUAT ION OF THE VECTORS 02, 05, AND D8 

C 

CALL ZREAD (FREQI) 

CALL ZTOD ( FREOI ,QIB,1,IF2,1,KI) 

IF (IF .NE. IF2) 

IF (NDAMPI .EQ. 0) GO TO 55 
CALL READ (QIBD,NR3,NC3, 1 ,KI ) 

IF (IF .NE. NC3 ) 

C 

DO 52 1*1 , IF 

01 BD ( I )= 12. 5663706 1*QIBD( I )*QIB( I ) 

CMI2( I )=39.4784176*QIB( I )*QIB( I ) 

52 CONTINUE 
GO TO 58 

55 READ (NIT, 1100) ZETAI 
DO 56 1 = 1, IF 

QIBD( I ) =12. 5663706 1*ZETAI*QIB( I ) 

OM 12(1 )=39.4784176*QIB( I )*QI8( I ) 

56 CONTINUE 

58 CONTINUE 

DO 59 1 = 1, IF 

D2( I )=1 .+C1*QIBD( I )+C2*OMI2( I ) 

D5( I )=QIBD( I )+DELTAT*0MI2( 1 1 
D8(I)=C3*QIBD(I)+C4*OMI2(I) 

59 CONTINUE 


ORIGINAL FAGS 13 

Of POOR CUALt "Y 


NERRGR- 2 
GO T .1 .-,99 

GC TO 999 


F. CALCULATION OF THE VECTORS D3, D6, AND D9 


CALL ZREAD ( FREQPA ) 

CALL ZTOD (FREQPA, QNP, 1 ,NP2, 1 ,KP) 

MFRRnP-3 

IF (NP .NE. NP2 ) GO TO 999 

C 

IF ( NDAMPP .EQ. 0) GO TO 60 
CALL READ (QNPD,NR2,NC2, 1 ,KP) 

IF (NP .NE. NC2 ) GO TO 999 

C 

DO 70 1=1, NP 

QNPD( I ) = 12 . 5663706 1*QNPD( I )*QNP( I ) 

OMP2( I )=39 4784l76*QNP;i)*QNP(I) 

70 CONTINUE 
GO TO 80 
60 CONTINUE 

READINIT. 1100) ZETAP 
DO 90 1=1, NP 

QNPD( I )=12. 5663706 * ZETAP * QNP(I) 

OMP2 ( I ) = 39.4784l76*QNP(n*QNPd) 

90 CONTINUE 
C 

80 CONTINUE 
C 

DO 100 1=1, NP 

D3 ( I ) = 1 . +C 1 *QNPD ( I ) +C2*OMP2 ( I ) 

D6 ' I )=QNPDI I )+DELTAT*OMP2( I ) 

D9 < I ) =C3*QNPD i I )+C4*0MP2( I ) 

100 CONTINUE 
C 

CALL TIMCHK ( 6HDVECS ! 

C 

C G. CALCULATION OF A1, A2. AND A3 MATRICES 
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c 


c 


c 


CALL TIMCHK(6HA123 ) 

CALL ZREAD (B2) 

CALL ZREAD (P2) 

CALL ZREAD ( PHI IB ) ORIGINAL PAG^ IS 

CALL ZTRANS ( PHI IB , PHI IBT ) OF POOR Q'JALiT / 


CALL ZSIZE (B2, IF2.NB2) 

IF (IF.NE.IF2 ,0R. NB.NE.NB2) 
CALL ZSIZE IP2, IF2.NP2) 

IF (IF.NE.IF2 .OR. NP.NE.NP2) 
CALL ZSiZE ( PHI IB , IF2.IF3) 

IF (IF.NE.IF2 .OR. IF.NE.IF3) 


NERR0R=4 
GO TO 999 

NERROR-5 
GO TO 999 

NERROR-6 
GO TO S99 


DO 110 1=1, NB 
Dim*-i./Dim 
110 CONTINUE 

DO 120 1=1 , NP 
D3( I ) =■ 1 . /D3( I ) 

120 CONTINUE 

CALL ZMULTDD IB2.D1 ,NB,A2) 

CALL ZMULTDD ( P2 , D3 , NP . A3 ) 

CALL ZTRANS (B2,B2T) 

CALL ZTRANS (P2.P2T) 

CALL ZMULT ( A2 , B2T , A2B2T ) 

CALL ZMULT ( A3 , P2T , A3P2T ) 

CALL ZAABB ( 1 . , A2B2T , 1 . , A3P2T . HELP2 ) 

CALL ZABDI ( HELP2 , D2 , IF , A 1 1 ) 

CALL ZINV3 (All , A 1 . 1 ) 

CALL ZTRANS (A2.A2T) 

CALL ZTRANS (A3.A3T) 

CALL TIMCHKI 6HA 123 ) 


H. CALCULATION OF INITIAL ACCELERATIONS - QNBDDO, QIBDDO. QNPDDO 


CALL TIMCHK ( 6HINITL ) 

CALL ZMULT ( B2 , B2T , HELP3 ) 

CALL ZMULT ( P2 , P2T .HELP4 ) 

CALL ZAABB ( - 1 . ,HELP4, - 1 . , HELP3 . HELP5 ) 

DO 125 1*1, IF 
FI ( I ) = 1 . 

125 CONTINUE 

CALL ZABDI IHELP5.FI, IF, All 
CALL ZINV3 ( AI ,A, 1 ) 

C 

CALL READ ( QNBO , NR3 . NC3 . 1 , KB ) 

CALL READ ( QNBDO , NR4 , NC4 , 1 , KB ) 

CALL READ ( QIBO . NR5 , NC5 . 1 ,KI ) 

CALL READ (QIBD0.NR6.NC6, 1 ,KI ) 

CALL READ ( QNPO . NR7 , NC7 , 1 . KP ) 

CALL READ I0NPD0.NR8.NC8. 1.KP) 

C 

C 

REWIND NFORFL 

READ (NFORFL) IRUNNO . IDATE . START2 , ENDT2 . DELTAT2 . < BUFCH . I = 1 . 1 0 1 
READ (NFORFL) T2 , f FBI I) , 1 = 1 , NB ) . < F 1 1 I » . 1 = 1 , IF ) , BUFCH 
C 

DO 130 Isl.NB 

FBI I i»FB( I ) -QNBD( I >*QNBD0( I ) -OMB2 ( I ) *QNB0 ( I i 
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130 CONTINUE 


ORIGINAL FAn- P S 
OF POOR QL'ALi ,'Y 


CALL ZMULTCD ( PHI IBT , F I , FP , IF , KP ) 

DO 140 1*1, IF 
FI(I)=FP(l)-QlBD(I)*QlBCO(I)‘OMi2(I)*QIBOU> 

140 CONTINUE 

DO 150 1*1, NP 

FPU) * -QNPD ( I ) *QNPD0 ( I ) -OMP2 ( I ) *QNP0 ( I ) 

150 CONTINUE 

CALL ZMULTCD I B2 , FB , QNBD , NB , KB ) 

CALL ZMULTCD (P2.FP.HELP1 1 ,NP,KI ) 

DO 160 1*1, IF 

FI ( I ) *FI ( I ) -QNBDI I ) -HELP 11(1) 

160 CONTINUE 

CALL ZMULTCD (A, FI .Q1BDD0, IF ,KI ) 

CALL ZMULTCD (B2T.QIBDD0.QNBDD0, IF ,KB) 

CALL ZMULTCD ( P2T , QIBDDO , QNPDDO , IF , KP ) 

DO 170 1*1, NB 

QNBDDO ( I ) *FB ( I ) -QNBDDO 1 1 ) 

170 CONTINUE 

DO 180 1=1, NP 

QNPDDO ( I ) =FP ( I ) -QNPDDO ( I ) 

180 CONTINUE 

CALL TIMCHK ( 6HINITL ) 

I. CALCULATE THE NUMBER OF TIME POINTS TO BE USED 


NTP* ( ENDT-STARTT ) /DEL TAT +1 . 1 

NW=NWRITE 

NX=NB+IF+NP 

REWIND NWF1LE 

WRITE ( NWFILE ) IRUNNO, IDATE , STARTT , ENDT , DELTAT , IF ,NP , ( BUF , I* 1 , 1 0 ) 
J. RESPONSE LOOP 


CALL TIMCHK I6HRESP ) 

DO 500 I T P = 1 , NTP 
T=STARTT+FLOATl ITP-1 ) *DELTAT 

READ INFORFL) T2 , ( FBU ) . 1* 1 ,NB ) . ( F I ( I ) . I* 1 , IF ) 

DO 190 1*1, NB 

FBI I )=FB( I )-D4l I ) *QNBD0 (I) -07 ( I ) *QNBDD0 1 1 ) -OMB2 ( I ) *QNB0 ( I ) 

190 CONTINUE 

CALL ZMULTCD ( PHI IBT ,F I , FP , IF ,KP ) 

DO 200 1*1, IF 

FI I I)=FP( I )-D5( I )*QIBD0U)-D8( I )*QIBDD0< I ) *OMI2( I ) *Q1B0 1 1 1 
200 CONTINUE 

DO 210 1*1 ,NP 

FPI I >=-D6< I >*QNPD0I I ) *D9 1 I ) *QNPDD0f I I-0MP21 1 )*QNP0I I ) 

210 CONTINUE 
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original f.^- 

01. CALCULATION OF RESPONSE OF POOR QUALITY 

CALL ZMULTCD ( A2,FB,QIBDD,NB,KI ) 

CALL ZMULTCD ( A3 , F P , HELP 1 1 ,NP,KI ) 

DO 220 1*1, IF 

FI ( I ) *FI ( I i+QIBDDt I )+HELPl 1(1) 

220 CONTINUE 

CALL ZMULTCD ( A 1 .FI .QIBDD, IF ,KI ) 

DO 230 1*1. IF 

QIBDI I )*QIBD0( I )+C3*QIBDD0( I )+C1*QIBDD( I ) 

0IB( I )=QIB0( I )+DELTAT*QIBD0( I )+C4*QlBDD0( I )+C2*QIBDD( I ) 
230 CONTINUE 

CALL ZMULTCD ( A2T , QIBDD . QNBDD , IF .KB ) 

DO 240 1*1, NB 

QNBDD ( I ) *-Dl 1 1 )*FBt 1 )+QNBOD( 1 ) 

QNBD ( I ) sQNBDO ( I ) +C3*QNBDD0 ( I ) +C 1 *QNBDD ( I ) 

CNB( I )=QNB0( I )+DELTAT*QNBDO( I 5+C4*QNBDDO( I )+C2*QNBDD( I ) 
240 CONTINUE 

CALL ZMULTCD ( A3T , QIBDD , QNPDD , I F ,KP ) 

DO 260 1=1. NP 

QNPDD ( I )*-D3( I )*FP( I )+QNPDD( I ) 

QNPD( I ) =QNPD0( I >+C2*QNPDD0( I )+C1*QNPDD( I ) 

QNP ( I )=QNP0( I )+DELTAT*QNPD0( I )+C4*QNPDD0( I )+C2*QNPDD( I ) 
260 CONTINUE 

J2. WRITE ANSWERS ON NWFILE FOR LATER USE 


WRITE (NWFILE) T. (QIBO(I) . 1=1 . IF ) , (QNPOl I ) , 1=1 ,NP) , 

♦ ( QIBDO ( I ) .1 = 1 . IF) , (QNPDOI I ) , 1 = 1 ,NP ) , 

♦ (QIBDDO(I).Isl.IF). ( QNPDD0( I ) , 1 = 1 ,NP ) , 

♦ BUF 

J3 . SEE IF DATA SHOULD BE PRINTED 


IF ( ITP .LT. NTP .AND. NW .LT. NWRITE) GO TO 300 

CALL TIMCHK ( 6HWRITE > 

CALL PAGEHD 
NL INE= 1 3 

WRITE (NOT, 1200) T 
NXSI * 1 
NXE I = I F 

IF ( NX E I .GT. ( NLPP-NLINE ) ) NXEI=NLPP-NLINE 
310 WRITE (NOT. 1400) ( 1 , QlBDDOf I ) . QIBDO ( I ) .QIBCM I > . I=NXSI .NXE I ) 

NLINE = NLINE-*-NXEI-NXSI + 1 

IF ( IF .EQ. NXE I ) GO TO 315 

CALL PAGEHD 

WRITE (NOT. 1250) T 

NLINE* 1 3 

NXSI=NXEm 

NXE I = I F 

IF ( I NXE I -NXSI I .GT. ( NLPP-NLINE • ) NXEI=NXSI+NLPP-NLINE 
GO TO 310 
315 CONTINUE 
NXSP=1 
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ORIGINAL PAGE IS 

NLINE=NLINE+13 0F P °° R QUAL,TY 

IF ( (NLINE+10) .LT. NLPP) GO TO 318 
CALL PAGEHD 

318 WRITE (NOT, 1250) T 
NLINE=NLINE+10 

IF ( NXEP .GT. (NLPP-NLINE) ) NXEP=NLPP-NLINE 
320 WRITE (NOT, 1500) ( I+IF ,QNPDD0( I ) ,QNPD0( I ) ,QNP0< I ) , I=NXSP ,NXEP ) 
IF (NP .EQ. NXEP) GO TO 330 
NXSP=NXEP+1 
NXEP=NP 
CALL PAGEHD 
WRITE (NOT, 1250) T 
NLINE= 10 
IF ( ( NXEP-NXSP ) 

GO TO 320 


GT. (NLPP-NLINE)) NXEP=NXSP+NLPP-NLINE 


330 NW=0 
300 NW=NW+1 


CALL TIMCHK ( 6HWRITE ) 


J4. REASSIGN 


DO 400 1=1 , NB 
QNBO ( 1 ) =QNB ( 1 ) 

QNBD0( I ) =QNPD ( I ) 

QNBDDOf I )=QNBDD( I ) 

400 CONTINUE 

DO 410 1 = 1, IF 
QIB0( I )=QIB( I ) 

Q I BDO ( I ) =QIBD ( I ) 

QIBDDOI I )=QIBDD( I ) 

410 CONTINUE 

DO 420 1=1, NP 
QNPO ( I ) =QNP ( I ) 

QNPDO < I ) =0NPD ( I ) 

QNPDD0( I )=QNPDD( I ) 

420 CONTINUE 

500 CONTINUE 

CALL TIMCHK ( 6HRESP ) 

K. EXIT 


RETURN 

999 CONTINUE 

CALL ZZBOMB (6HZRESP , NERROR ) 
END 
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c 

c 


c 


PROGRAM LOADS ( INPUT .OUTPUT , TAPE5*INPUT , TAPE6*0UTPUT , 

+ TAPE20 , TAPE 30 , TAPE31 , TAPE32 , TAPE33 , TAPE40, TAPE41 ) 


1 CALL START 


CALL ZLOADS 


ORIGINAL & 
OF POOR QUALITY 


CALL TIMCHK (6HTBEGIN) 
CALL TIMCHK ( 6HZL0ADS) 


CALL TIMCHK (6HZL0ADS) 
CALL TIMCHK (6HTPRINT ) 


GO TO 1 
END 


************************ 
* * 

♦ ZLOADS * 

* * 
************************ 


SUBROUTINE ZLOADS 

SUBROUTINE ZLOADS PRODUCES ALL THE NECESSARY PAYLOAD MEMBER LOADS. 
MAXIMUM AND MINIMUM LOADS ARE CALCULATED ON REQUEST. 

DEVELOPED BY RC ENGELS AND TG SHANAHAN, FEBRUARY 1982. 


COMMENTS 


1. SUBROUTINE ZLOADS IS PART OF A COMPLETE BOOSTER/PAYLOAD 
INTEGRATION SOFTWARE PACKAGE USING A DIRECT NUMERICAL 
INTEGRATION TECHNIQUE. A DISCUSSION OF THIS TECHNIQUE 
CAN BE FOUND IN "STRUCTURAL DYNAMICS PAYLOAD LOADS 
ESTIMATES - FINAL REPORT, MAY 1982". 

2. PROGRAM ZLOADS SHOULD BE RUN FOR EACH PAYLOAD 
SEPERATELY. 

3. THE FOLLOWING INFORMATION IS PUT ON NWFILE : 

A. \ HEADER CONTAINING THE RUN NUMBER, DATE. START TIME 
OF THE LOADS CALCULATION, END TIME OF THE LOADS 
CALCULATION, TIME STEP. NUMBER OF DEGREES OF FREEDOM 
USED, AND THE NUMBER OF TIME STEPS. 

B. THE TIME AND LOADS RESULTS IN SEQUENTIAL ORDER : 

T 1 , (LOADS! I), 1*1 .NUMBER OF DOFS), 

T2 , (LOADS! I), 1*1, NUMBER OF DOFS), 

ENDT , I LOADS ( I ) , I * 1 , NUMBER OF ’ DOFS ) 

4. IF MAXL* 1 THE MAXIMUM/MINIMUM LOADS MATRIX 15 WRITTEN 
ON NTAPE . NTAPE IS A DENSE-LOGIC FORMA FILE. 

5. SUBROUTINE ZLOADS USES THE FOLLOWING FORMA SUBROUTINES: 

- LTAPE. PAGEHD, READIM, TIMCHK. WRITE, WT APE , ZMULT . 

ZREAD . ZSIZE, ZSLADR , ZWRKFL , ZZBOMB, ZZERO 

6. IT ALSO USES SPECIAL PURPOSE SUBROUTINE ZMULTCD 
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ORIGINAL PA GZ IS 

SUBROUTINE ARGUMENTS OF POOR QUALITY 


SUBROUINE ZLOADS HAS NO SUBROUTINE ARGUMENTS 
EXAMPLE OF A CALLING PROGRAM ON THE CDC 172/720/730 


FILE ASSUMPTIONS 

- TAPE 1 = WORK FILE REQUIRED BY ZLOADS. NWRKFL=1. 

- TAPE10 = SEQUENTIAL INPUT FILE CONTAINING RESPONSE DATA. 

NRESPFL*10. 

- TAPE11 « SEQUENTIAL OUTPUT FILE CONTAINING LOADS DATA. 

NWFILE* 1 1 . 

- TAPE12 * FORMA OUTPUT FILE CONTAINING MAXIMUM/MINIMUM 

LOADS DATA. nTaPE-12 


PROGRAM LOADS ( INPUT .OUTPUT , TAPE5= INPUT , TAPE6=DUTP'JT , 

+ TAPE1 , TAPE 1 0, TAPE 1 1 .TAPE 12 1 

1 CALL START 

CALL TIMCHK (6HTBEGIN) 
CALL TIMCHK (6HZL0ADS) 

CALL ZLOADS 

CALL TIMCHK ( 6HZLOADS) 
CALL TIMCHK (-6HTPRINT ) 

GO TO 1 
END 

INPUT FORM 


READ MAXL , I SELECT ,NWR I TE (315) 
READ NQNPS, NQNP (215) 
READ IFB.IFP.NP (315) 
READ NRESPFL.NWRKFL .NWFILE.NTAPE (415) 
CALL ZREAD (PKPSI) 

IF < ISELECT .EQ. 0) GO TO 1 


CALL READIM ( IVSEL , NR 1 , IVS1ZE , 1 , K 1 ) 
1 CALL ZREAD ( PL 1 ) 

CALL ZREAD ( PL2) 

CALL ZREAD (TP) 

CALL ZREAD ( PHI IB > 

CALL READIM ( IVEC.NRI , IF1 , 1 t KI ) 
RETURN 


DEFINITION OF INPUT VARIABLES 


IFB = NUMBER OF BOOSTER INTERFACE DOFS. 

IFP = NUMBER OF INTERFACE DOFS FOR THIS PAYLOAD. 

ISELECT = 0 ALL ROWS OF PKPSI ARE USED IN THE LOAD 
CALCULATIONS. 

= 1 ONLY ROWS OF PKPSI THAT ARE SELECTED IN IVSEL 

ARE USED IN THE LOAD CALCULATIONS. 

I VEC = VECTOR OF THE ROW LOCATIONS IN PHI IB THAT 

CORRESPOND TO INTERFACE DOFS OF THIS PAYLOAD. 

I VEC 1 1 ) = ROW LOCATION IN PHII OF THE I-TH 
INTERFACE DOF IN THIS PAYLOAD. SIZE (IFP). 

IVSEL = VECTOR OF ROWS OF PKPSI THAT INVGlVE THIS PAYLOAD. 
SIZE I 1.IVSIZE). 

MAXL = 0 MAXIMUM/MINIMUM LOADS CALCULATION IS NOT 

DESIRED 
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ND 

NP 

NQNP 

NQNPS 

NRESPFt 

NTAPE 

NWFILE 

NWRKFL 

NWRITE 

PHI IB 
PKPSI 

PL 1 

PL2 

TP 


1 MAXIMUM/MINIMUM LOADS CALCULATION IS DESIRED. 
NUMBER OF DOFS IN THIS PAYLOAD. 

THE TOTAL NUMBER OF TRUNCATED CANTILEVERED 
MODES FOR ALL THE PAYLOADS. 

NUMBER OF NON-INTERFACE DOFS IN THE PAYLOAD. 

THE POSITION NUMBER IN MATRIX WHERE THE 

FIRST DOF FOR THE PAYLOAD OCCURS. 

LOGICAL FILE NUMBER OF THE SEQUENTIAL FILE 
CONTAINING THE RESPONSE DATA FOR THE SYSTEM. 
LOGICAL FILE NUMBER OF A FORMA FILE FOR OUTPUT 
MAXIMUM/MINIMUM LOADS DATA. IF MAXL=0 TH T S TAPE 
IS NOT USED. 

LOGICAL UNIT NUMBER OF SEQUENTIAL TAPE ON WHICH 
TO WRITE LOADS DATA. 

LOGICAL UNIT NUMBER OF PARTITION-LOGIC WORK 
FILE REQUIRED BY ZLOADS. 

0 THE LOADS CALCULATION RESULTS ARE NOT PRINTED 
ON PAPER. 

N THE LOADS RESULTS ARE PRINTED ON PAPER EVERY N 
TIME STEPS. 

THE INTERFACE MODES MATRIX. SIZE (IFB.IFB). 

A LOADS TRANSFORMATION MATRIX. TRANSFORMS DISRETE 
DISPLACEMENTS TO LOADS. SIZE (ND.ND). 

THE NON- INTERFACE LOADS TRANSFORMATION FOR THIS 
PAYLOAD. SIZE (ND.ND) . 

THE INTERFACE LOADS TRANSFORMATION FOR THIS 
PAYLOAD. SIZE (ND.IFP). 

THE CONSTRAINT MODAL MATRIX FOR THIS PAYLOAD. 

SIZE (ND.IFP). 


DIMENSION, COMMON, DATA, AND FORMAT 


COMMON /NITNOT/ NIT, NOT 

COMMON /LSTRT4/ NLINE , NLPP 

COMMON /LSTART/ IRUNNO , IDATE ,NPAGE , UNAME (3). ,T1( 12) ,T2( 12) 


DIMENSION I VSEL ( 500 ) , QIB ( 200 ) , QNP ( 500 ) , QIBDD( 200 ) , QNPDD( 500 ) , 
+ AL 1 ( 600 ) , AL2 ( 600 ) , AL3 ( 600 ) , ALMM( 600 , 4 ) ,QIBD(200) . 

+ QNPD ( 500 ) 


DATA 

DATA 

C 

1000 FORMAT 

2001 FORMAT 
+ 

+ 

+ 

2002 FORMAT 
+ 

2003 FORMAT 
+ 

2004 FORMAT 
+ 

2005 FORMAT 
+ 

2006 FORMAT 
+ 

2007 FORMAT 
+ 

+ 

+ 


K1.K2.KI /500 , 600 , 200/ 
BUF /-1.E50/ 


ORIGINAL PAGE 19 
OF POOR QUALITY 


(1015) 

(///', 55X , *PAYLOAD LOADS*,/, 

55X , * - *,///, 

50X , *FOR THE TIME INTERVAL OF : *// , 52X , *STARTT =*, 

F 12 . 6 , // , 54X . *ENDT =*,F12.6,//,52X, *DELTAT =*,F12.6,//) 

( 5 ( / ) , 40X , *INPUT PARAMTERS TO ZLOADS*,/, 

40X , * *,//) 

( 18X,*MAXIMUM/MINIMUM LOAD CALCULATION WILL NOT BE * 

♦ PERFORMED* , 5X , * ( MAX L = 0)*,/) 

( 20X , *M A XIMUN /MINIMUM LOAD CALCULATION WILL BE PERFORMED*. 
5X , * ( MAXL = 1 )*,/> 

( 1 8X , *ALL ROWS OF PKPSI ARE USED IN THE LOAD CALCULATION*, 
5X , * ( I SELECT = 0)*,/) 

( 2X,*ONLY ROWS OF PKPSI THAT ARE SPECIFIED IN IVSEL ARE *, 
♦USED IN THE LOAD CALCULAT IONS* . 5X ,*( I SELECT = II*.//) 
( 46X . *NWR I TE =*,I5,///, 

26X , *THE NUMBER OF INTERFACE DOFS IN THIS PAYLOAD =*.15,// 
, 10X,*THE ROW NUMBER OF THE FIRST NON- INTERFACE DOF FOR *, 
♦THIS PAYLOAD IN THE BOOSTER =*,I5,//, 
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+ 


2010 FORMAT 

2011 FORMAT 


+ 


24X , *THE NUMBER OF NON- INTERFACE DOFS IN THIS PAYLOAD =*, 
.15,//’ 

26X , *THE NUMBER OF INTERFACE DOFS IN THE BOOSTER a*, 15,// 
27X , *THE TOTAL NUMBER OF PAYLOAD MODES RETAINED **,15.///, 
45X,*NRESPFL **, 15,// ,46X,*NWRKFL **, 15 , // , 46X , *NWF ILE **„ 
15 , // , 47X , *NTAPE =*,I5,//) 1 

( /// , 50X , *TIME **,F 12.6,// ) 

(///,50X,*MAXIMUM AND MINIMUM LOADS*,/, 

, 50X , * *,//, 

, 30X , *F0RM : MAXIMUM, TIME AT MAXIMUM, MINIMUM,*, 

,* TIME AT MINIMUM*,//) 


BEGINNING OF PROGRAM 


ORIGIKM. ' S 

OF POOR QUALITY 


READ (NIT, 1000) 
READ (NIT, 1000) 
READ (NIT, 1000) 
READ (NIT, 1000) 
CALL PAGEHD 
WRITE (NOT, 20021 
IF (MAXL .EQ. 0) 
IF (MAXL .NE. 0) 
IF ( ISELECT .EQ. 
IF (ISELECT .NE. 
WRITE (NOT, 2007) 


MAXL, ISELECT, NWRITE 

NQNPS.NQNP 

IFB , IFP , NP 

NRESPFL , NWRKFL , NWF ILE , NT APE 


WRITE (NOT, 2003) 

WRITE (NOT, 2004) 

0) WRITE (NOT, 2005) 

0) WRITE (NOT, 2006) 

NWRITE, IFP, NQNPS.NQNP, IFB, NP, NRESPFL, 
NWRKFL, NWFILE.NTAPE 


COMPUTE MATRICES A=K*PSI*PL1 AND B=K*PSI*PL2 


CALL TIMCHK ( 6HAB 

CALL ZWRKFL (NWRKFL) 

IF (ISELECT .EQ. 0) GO TO 100 
CALL ZREAD (PKPSI) 

CALL READIM ( I VSEL , NR 1 , 1 VSIZE , 1 , K 1 ) 

CALL ZSIZE (PKPSI. NR2.NPKPSI) 

CALL ZZERO ( Z , IVSIZE , NPKPSI ) 

CALL ZSLADR ( 1 ., PKPSI , I VSEL . I VSIZE , Z ) 

GO TO 200 


100 CONTINUE 

CALL ZREAD (Z) 

CALL ZSIZE (Z, IVSIZE, NCZ) 


200 CONTINUE 

CALL ZREAD (PlD 
CALL ZREAD (PL2» 
CALL ZREAD (TP) 
CALL ZREAD ( PHI IB > 


EXTRACT INTERFACE MODES THAT INVOLVE THIS PAYLOAD 


CALL READIM ( I VSEL , NR 1 , IF 1 , 1 ,KI ) 

NERROR* 1 

IF (IFP .NE. I F 1 ) GO TO 999 

C 

CALL ZZERO ( PHI IR , I FP , IFB ) 

CALL ZSLADR ( 1 . , PHI IB , IVSEL , IFP , PHI IR > 

C 

CALL ZMULf (Z.PL1.A) 

CALL ZMULT (Z.PL2.B) 

CALL ZMULT (B.PHIIR.B2) 
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CALL ZMULT (Z,TP,C) 

CALL ZMULT (C.PHIIR.C2) 


ORIGINAL PAG!! IS 
OF POOR QUALITY 


CALL TIMCHK ( 6HAB ) 


CALCULATE MEMBER LOADS L=A*ACCEL+B*DISPL 


CALL TIMCHK ( 6HL0ADS ) 

REWIND NRESPFL 
NW=NWRITE 
C 

READ (NRESPFL) IRUNN2, I DAT2 , ST ARTT , ENDT , DELTAT , IF2.NP2, 

+ ( BUFCH ,1=1,10) 

NERROR=2 

IF (NP2 .NE. NP> GO TO 999 

NERR0R=3 

IF (IF2 .NE. IFB ) GO TO 999 

C 

NT PM ENDT-STARTT ) /DELTAT+ 1 . 1 
C 

REWIND NWFILE 

WRITE (NWFILE) IRUNNO , IDATE , STARTT , ENDT , DELTAT , I VSIZE , NTP , 

+ ( BUF ,1=1,10) 

C 

WRITE (NOT, 2001) STARTT , ENDT , DELTAT 
DC 500 KK= 1 ,NTP 

READ (NRESPFL) T , ( QIB ( I ) , 1= 1 , I FB ) , ( QNP ( I ) , I = 1 , NP ) 

+ , (QIBD(I) ,I*1,IFB), (QNPD(I) ,I*1,NP) 

+ , ( QIBDD ( I) ,1=1 , IFB) , (QNPDD( I) ,1=1 ,NP) .BUFCH 

C 
C 

DO 300 d=1 ,NQNP 

QNPDD ( J ) =QNPDD ( NQNPS+J- 1 ) 

300 CONTINUE 

CALL ZMULTCD ( A , QNPDD , AL 1 , NQNP , K2 ) 

CALL ZMULTCD ( B2 , QIBDD , AL2 , I FB , K2 ) 

CALL ZMULTCD ( C2 , QIB , AL3 , IFB , K2 ) 

DO 350 d=1 , I VSIZE 

AL 1 ( d ) s-AL 1 ( d ) -AL2 ( d )+AL3( d ) 

350 CONTINUE 
C 

WRITE (NWFILE) T , ( AL 1 ( I ) , I = 1 , 1 VSIZE ) 

C 

IF (NWRITE .EQ. 0) GO TO 500 
IF (KK .LT. NTP .AND. NW .LT. NWRITE) GO TO 450 
C 

CALL PAGEHD 
WRITE (NOT, 2010) T 
NL INE=NL INE+ 1 0 

CALL WRITE (AL1 , 1 , I VSIZE ,6ri LOADS ,1) 

NW=0 

C 

450 CONTINUE 
NW=NW+1 

C 

500 CONTINUE 
C 

CALL TIMCHK ( 6HL0ADS > 

IF I MAXL .EQ. 0) GO TO 900 

CALL TIMCHK ( 6HMAXMIN I 

REWIND NWFILE 

READ (NWFILE) IRUNNO . IDATE , STaRTT , ENDT . DELTAT , I VSIZE . NTP , 

+ (BUFCH, 1=1 , 10) 

i 



c 

c 


c 


c 


c 


c 


c 


READ (NWFILE ) T , ( AL 1 ( I ) . 1 = 1 . IVSIZE ) 

DO 800 1*1, IVSIZE 
ALMMI 1 , 1 )*AL 1(1) 

ALMM( I ,2)=T 
AlMMI 1,3) *AL 1 ( I ) 

ALMMI I , 4 ) =T 
800 CONTINUE 


ORIGINAL PAGE IS 
OF POOR QUALITY 


DO 840 KK=2 , NTP 

READ (NWFILE) T , ( AL 1 ( I ) , I = 1 , IVSIZE ) 
DO 840 d® 1 , IVSIZE 

IF (ALKJ) .LE. ALMMI 0,1)) GO TO 830 
ALMM( J , 1 ) *AL 111) 

ALMMI d , 2 ) =T 

830 IF (ALKJ) .GE. ALMMI J, 3)) GO TO 840 
ALMMI J,3)*AL1(J) 

ALMMI J , 4 ) =T 
8*0 CONTINUE 


CALL PAGEHD 
WRITE (NOT, 2011) 

NLINE=NLINE+10 

CALL WRITE I ALMM, IVSIZE, 4, 6HMAXMIN.K2) 

CALL W1APE (ALMM, IVSIZE, 4, 6HMAXMIN . K2 , NTAPE > 

CALL LTAPE (NTAPE) 

CALL T IMCHK ( ,• iAXMIN ) • 


900 CONTINUE 
RETURN 

999 CALl. ZZBOMB 1 6HZL0ADS , NERROR ) 
END 
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PROGRAM SCBRES ( INPUT .OUTPUT , TAPES^INPUT , TAPE6=0UTPUT , 
♦ TAPE 1 0 , TAPE30 , TAPE31 , TAPE40 . TAPE4 1 ) 


THIS PROGRAM GENERATES THE NOMINAL RESPONSE OF THE 
BOOSTER WITHOUT PAYLOADS. THE OUTPUT OF THIS PROGRAM 
CAN THEN BE USED IN A DIRECT OR COUPLED BASE DRIVE 
RESPONSE ANALYSIS OF A PAYLOAD. 

CREATED dUf 6 


1 CALL START 

CALL ZSCBRES 

GO TO 1 
END 


ORIGINAL PAC.'J IS 
OF POOR QUALITY 


CALL TIMCHK 
CALL TIMCHK 

CALL TIMCHK 
CALL TIMCHK 


<6h jEGIN) 
( 6HtSCBR ) 

(6HZSCBR ) 
(6HTPRINT ) 


*************************************** 
* * 

* ZSCBRES * 

* * 
******************************** ******* 


SUBROUTINE ZSCBRES 


THIS SUBROUTINE DETERMINES THE NOMINAL BOOSTER RESPONSE TO A 
GIVEN FORCING FUNCTION. THE OUTPUT RESPONSE CAN THEN BE USED 
IN A COUPLED OR DIRECT BASE DRIVE RESPONSE ANALYSIS FOR A 
PAYLOAD 

DEVELOPED BY TG SHANAHAN AND RC ENGELS. MAY 1982. 

COMMENTS 


1. SUBROUTINE ZSCBRES IS PART OF A COMPLETE BOOSTER/PAYLOAD 
INTEGRATION SOFTWARE PACKAGE USING A DIRECT NUMERICAL 
INTEGRATION TECHNIQUE. A DISCUSSION OF THIS TECHNIQUE 
CAN BE FOUND IN "STRUCTURAL DYNAMICS PAYLOAD LOADS 
ESTIMATES - FINAL REPORT, SEPTEMBER 1982". 

2. SUBROUTINE ZSCBRES USES A MODIFIED FORM OF THE NEWMARK- 
CHAN- BETA INTEGRATION SCHEME. 

3. THE FOLLOWING OUTPUT IS PUT ON NWFILE : 

- A HEADER CONTAINING THE RUN NUMBER. DATE, STARTT , ENDT, 
DELTAT, NB AND IF 

- THEN FOR EACH TIME STEP: 

THE TIME, T, AND BOOSTER AND INTERFACE RESPONSE, 

QNB , QNBO, QNBDD, XIB, XIBD, AND XIBDD 

4. SUBROUTINE ZSCBRES USES THE FOLLOWING FORMA SUBROUTINES: 

- PAGEHD, READ, TIMCHK, ZAA , ZABB, ZINV3 , ZMULT , ZREAD, 
ZTOD, ZTRANS, ZWRKFL , ZZBOMB 

5. SUBROUTINE ZSCBRES ALSO USES THE FOLLOWING SPECIAL PURPOSE 
SUBROUTINES THAT WERE DEVOLOPED ESPECIALLY FOR THIS SOFTWARE 
PACKAGE: 

- ZMULTCD, ZMULTDD 
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ORIGINAL PAGE (G 

SUBROUTINE ARGUMENTS OF POgR QUALITY 


SUBROUTINE ZSCBRES HAS NO SUBROUTINE ARGUMENTS 
EXAMPLE OF A CALLING PROGRAM ON CDC 172/720/730 


FILE ASSUMPTIONS: 

- TAPE1 * WORK FILE REQUIRED BY ZSCBRES. NWRKFL* 1 . 

- TAPE 10 s FORMA FILE (FOR INPUT DATA). NOTE THAT 

MORE THAN ONE FORMA FILE MAY BE NECESSARY 
IF INPUT DATA IS RECORDED ON SEVERAL FORMA 

- TAPE11 * SEQUENTIAL FILE (FOR OUTPUT DATA). NWFILEsll. 

PROGRAM SCBRES ( INPUT, OUTPUT, TAPE58INPUT . TAPE6*OUTPUT , 

♦ TAPE1 , TAPE 10, TAPE 1 1 ) 

1 CALL START 

CALL TIMCHK (6HTBEGIN) 
CALL TIMCHK (6HZSCBR ) 

CALL ZSCBRES 

CALL TIMCHK (6HZSCBR ) 
CALL TIMCHK (6HTPRINT ) 

GO TO 1 
END 


INPUT FORM 


CALLING PROGRAM MUST CALL START 


READ NWFILE.NWRKFL.NWRITE.NFORFL (415) 

READ STARTT , ENDT, DELTAT (3E10.0) 

READ GAMMA, BETA (2E10.0) 

READ NDAMPB, NF, NB. IF (415) 

CALL ZREAD ( FREQBT ) 

IF (NDAMPB .EQ. 0) GO TO 1 
CALL READ (DAMPB.NR1 , NC 1.1. KB ) 

GO TO 2 

1 READ ZETAB (E10.0) 


2 CALL ZREAD ( BM1 ) 

CALL ZREAD (DM2) 

CALL ZREAD ( BK2 ) 

CALL READ ( QNBO , NR3 ,NC3 , 1 , KB ) 
CALL READ ( QNBDO , NR4 , NC4 , 1 , KB ) 
CALL READ (XIB0.NR5.NC5.1.KI) 
CALL READ (XIBD0.NR6.NC6, 1 ,KI ) 


DEFINTITI ON OF INPUT VARIABLES 


BK2 s THE BOOSTER STIFFNESS MATRIX REDUCED TO THE 
INTERFACE. ( TB)T*BK*TB. SIZE (IF, IF). 

BM1 8 THE BOOSTER COUPLING MASS MATRIX BETWEEN INTERFACE 
AND NON-INTERFACE DOFS. SIZE IIF.NP). 

BM2 * THE BOOSTER MASS MATRIX REDUCED TO THE INTERFACE. 
(TB)T*MB*TB. SIZE (IF. IF). 

BETA 8 INPUT PARAMETER FOR NEWMARK-CHAN-BETA NUMERICAL 

INTEGRATION TECHNIQUE. A GOOD VALUE IS BETAs 0.25 
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ORIGINAL PAGZ IS 
OF POOR QUALITY 

DAMP6 = BOOSTER ITV.L DAMPING MATRIX IN DENSE-LOGIC. 

DIAGONAL TRIX INPUT AS A ROW VECTOR. 

SIZE (1,Nl. . 

DELTAT s TIME STEP FOR INTEGRATION ROUTINE. 

ENDT * STOPPING TIME FOR THE NUMERICAL INTEGRATION 
ROUTINE. 

FREQBT > TRUNCATED. CANTILEVERED BOOSTER FREQUENCY VECTOR 
IN PARTITION-LOGIC. SIZE (1.NB) 

GAMMA s INPUT PARAMETER FOR NEWMARK-CKAN-BETA NUMERICAL 

INTEGRATION TECHNIQUE. A GOOD VALUE IS GAMMA*0. 5 
IF 8 NUMBER OF INTERFACE DOFS. 

NB s NUMBER OF TRUNCATED. CANTILERED BOOSTER MODES. 

NDAMPB 8 0 FOR A CONSTANT VALUE OF MODAL DAMPING IN THE 

BOOSTER MODAL DAMPING MATRIX. 

8 1 FOR A VARIABLE VALUE OF MODAL DAMPING IN THE 

BOOSTER MODAL DAMPING MATRIX. 

(MUST INPUT DAMPS FOR NDAMPB >1). 

NF * NUMBER OF DOFS IN BOOSTER WHERE FORCES ARE APPLIED. 
NFORFL 8 LOGICAL FILE NUMBER CONTAINING THE INTERPOLATED 
FORCE DATA. THIS DATA IS SEQUENTIAL. 

NWFILE 8 LOGICAL FILE NUMBER FOR OUTPUT DATA. 

NWRITE 8 0 RESULTS ARE NOT PRINTED ON PAPER. 

= 1 RESULTS ARE PRINTED ON PAPER. 

NWRKFL 8 LOGICAL FILE NUMBER FOR WORK FILE. 

XIBO 8 DENSE-LOGIC VECTOR OF INITIAL DISCRETE DISPLACEMENTS 
OF THE INTERFACE DOFS AT STARTT. SIZE { 1 . IF ) 

XIBDO = DENSE-LOGIC VECTOR OF THE INITIAL DICRETE VELOCITIES 
OF THE INTERFACE DOFS AT STARTT. SIZE ( 1 , IF ) . 

QNBO 8 DENSE-LOGIC VECTOR OF THE INITIAL MODAL 

DISPLACEMENTS OF THE BOOSTER DOFS AT THE STARTT. 

SIZE ( 1 ,NB) . 

QNBDO = DENSE-LOGIC VECTOR OF THE INITIAL MODAL VELOCITIES 
OF THE BOOSTER DOFS AT STARTT. SIZE (1,NB) 

ZETAB 8 VALUE OF BOOSTER MODAL DAMPING FOR ALL DOFS WHEN 
NDAMPB 8 0. 


A. DIMENSION, COMMON, DATA, AND FORMAT STATEMENTS 


DIMENSION QNB(500) ,QNBD(500) ,QNBDD(500) , 

+ QNBO ( 500 ) , QNBDO ( 500 ) , QNBDDO ( 500 ) , 

+ X I B ( 200 ) , XI BO (200) , XIBDO (200) , 

♦ XIB0(200) . X I BOO ( 200 ) , XIBDDOI 200 ) . 

♦ 01(500) , D3( 500 ) .05(500) .OMB2I500) . 

+ FB( 500 ) , FI (200 ) 

C 

C 

COMMON /NITNOT/ NIT, NOT 

COMMON /LSTRT4/ NLINE.NLPP 

C 
C 

DATA KB.KI /500.200/ 

DATA BUF /-1.E50/ 

C 

C 

1000 FORMAT (1015) 

1100 FORMAT ( 1 OE 10.0) 

2001 FORMAT (/////, 50X . -INPUT PARAMETERS* ,/,50X, 16( 1H- ) .///, 

♦ 48X , *NWFILE ** , 15 , / , 48X , *NWRKFL **,15,/. 

+ 48X,*NFORFL =*,15.//, 

+ 30X , *DATA IS WRITTEN ON PAPER EVERY * , 15 , * TIME STEPS*) 
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2002 FORMAT (//,48X,*STARTT =*,F10.6,/,50X.*ENDT =*,F10.6./. 

+ 48X,*DELTAT s*,F10.6) 

2003 FORMAT (//,30X,*PARAMETERS FOR NEWMARK-CHAN-BETA INTEGRATION*, 

+ * ROUTINE* , // , 49X , *GAMMA «*,F10.6,/. 

♦ 50X,*BETA =*,F10.6) 

2004 FORMAT (/30X,*VALUE OF BOOSTER MODAL DAMPING IS CONSTANT*, 

+ 5X,*(NDAMPB = 0)*) 

2006 FORMAT (//30X,*NUMBER OF FORCES APPLIED TO BOOSTER **.I5,//, 

+ 32X , *NUMBER OF TRUNCATED BOOSTER MODES **,I5,//, 

+ 4 IX, ‘NUMBER OF INTERFACE DOFS **,15) 

2010 FORMAT (//9X.8H TIME = .F10.6) 

2011 FORMAT <//10X,*TIME * *,F10.6,4X,*(CONTINUED)*) 

2012 FORMAT (//5X, ‘BOOSTER RESPONSE (MODAL COORDINATES)*,/, 

+ 5X,* *, 

+ //9X,4H ROW , 6X , 1 3H ACCELERATION, 8X,9H VELOCITY , 10X, 

+ 13H DISPLACEMENT// ,( 10X, 13, 1P3E20. 8) ) 

2013 FORMAT ( //5X , ‘INTERFACE RESPONSE (DISCRETE COORDINATES)*,/, 

♦ 5X,* *, 

+ //9X * ROW* 7X 

+ ‘ACCELERATION* ! 9X , ‘VELOCITY* , 1 1 X , *DI SPLACEMENT*// 

♦ , ( 10X, 13, 1P3E20.8) ) 


****************************** 

BEGINNING OF PROGRAM 
****************************** 


B. READ INPUT DATA 


ORIGINAL r: 

OF POOR 


READ (NIT, 1000) 
READ (NIT, 1100) 
READ (NIT, 1100) 
READ (NIT, 1000) 


NWF I LE , NWRKFL , NWR I TE , NFORF L 
STARTT.ENDT.DELTAT 
GAMMA. BETA 
NDAMPB.NF ,NB, IF 


CALL PAGEHD 

WRITE (NOT, 2001) NWFILE , NWRKFL , NFORF L , NWRITE 

WRITE (NOT, 2002) STARTT.ENDT.DELTAT 

WRITE (NOT, 2003) GAMMA, BETA 

IF (NDAMPB .EQ. 0) WRITE (NOT, 2004) 

WRITE (NOT, 2006) NF ,NB, IF 


CALL ZWRKFL (NWRKFL) 

C. CALCULATION OF CONSTANTS 


C0=DELTAT*DELTAT 

C1=GAMMA*DELTAT 

C2*BETA*C0 

C3*< 1 .0-GAMMA '/‘DELTAT 
C4s( 0.5-BETA)*CO 

D. CALCULATION OF VECTORS D3, D5, AND -D1INV 


CALL TIMCHK ( 6HDVECS ) 

CALL ZREAD ( FREQ6) 

CALL ZTOD ( FREQS, QNB, 1.NC2, 1, KB) 

NERROR= 1 

IF (NC2 .NE. NB) GO TO 999 

C 

IF (NDAMPB .EQ. 0) GO TO 40 
C 

CALL READ (QNBD.NR1 ,NC1 , 1 ,K8) 
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origi;^l p.;«i 

OF POOR QUALITY 


IF (NCI .NE. NB) 

C 

DO 20 1*1, NB 

QNBD ( I ) = 1 2 . 5663706 1 *QNBD ( I ) *QNB ( I ) 

0MB 2 ( I ) * 39 . 4784 1 76*QNB ( I ) *QNB ( I ) 

20 CONTINUE 
C 

GO TO 80 
C 

40 READ (NIT, 1100) ZETAB 
C 

DO 60 1*1, NB 

0NBD ( I ) * 1 2 . 5663706 1 *ZETAB*QNB ( I ) 

0MB 2 ( I ) =39 . 4784 1 76*QNB ( I ) *QNB ( I ) 

60 CONTINUE 
C 

80 CONTINUE 
C 

DO 100 1=1 , NB 

D1(I)=-1./(1. 0+C 1 *QNBD ( I ) +C2*OMB2 ( I ) ) 

D3 ( I ) =QNBD ( I ) +DELTAT*OMB2 ( I ) 

D5( I ) =C3*QNBD ( I ) +C4*0MB2 ( I ) 

100 CONTINUE 


NERR0R=2 
GO TO 999 


E. CALCULATION OF D2, D4, AND D6 


CALL ZREAD (BM1) 

CALL ZREAD (BM2) 

CALL ZREAD (BK2) 

CALL ZAABB ( 1 .0,BM2,C2,BK2,D2) 

CALL ZAA (DELTAT ,BK2,D4) 

CALL ZAA (C4,BK2,D6) 

CALL TIMCHK ( 6HDVECS ) 

F. CALCULATION OF A1 AND A2 


CALL TIMCHK (6HA12 ) 

CALL ZMULTDD (BM1 , D 1 ,NB,A2) 

CALL ZTRANS (BM1.BM1T) 

CALL ZMULT (A2.BM1T.H1) 

CALL ZAABB ( 1 .0,H1 , 1 .0.D2.A1I ) 

CALL ZINV3 ( A 1 1 , A 1 .1) 

CALL ZTRANS (A2.A2T) 

CALL TIMCHK (6HA12 ) 

G. CALCULATION OF INITIAL ACCELERATIONS ONBDDO AND XIBDDO 


CALL TIMCHK ( 6HINITL ) 

CALL ZMULT (BM1 .BM1T.H2) 

CALL ZAABB ( - 1 . 0 , H2 , 1 . 0 , BM2 , H3 ) 

CALL ZINV3 (H3.H3I, 1) 

CALL READ ( QNBO , NR3 , NC3 , 1 , KB ) 

CALL READ ( QNBDO , NR4 , NC4 , 1 , KB ) 

CALL READ ( XIBO , NR5 ,NC5 , 1 , KI ) 

CALL READ ( XIBDO , NR6 , NC6 , 1 , KI ) 

NERR0R=3 

IF (NC3 .NE. NB .OR. NC4 .NE. NB) GO TO 999 

NERR0R=4 

IF ( NC5 .NE. IF .OR. NC6 .NE. IF) GO TO 999 
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c 


REWIND NFORFL 

READ (NFORFL) IRUNNO, IDATE,STARTT2,ENDT2,DELTAT2, (BUFCH, I«1 ,10) 
READ (NFORFL) T2, (FB( I ) , I«1 ,NB) , (FI( I ) , I»1 , IF) 


C 


C 



C 




C 


160 


NERR0R*5 

IF (T2 ,NE STARTT ) GO TO 999 

DO 120 1:1, NB 

FB( I ):FB( I ) -QNBD( I )*QNBD0( I ) -0MB2( I )*QNB0( I ) 

CONTINUE 


CALL ZMULTCD (BK2.XIB0.XIB, IF ,KI ) 


DO 130 U1, IF 

FI ( 1 ) *FI ( I ) -XIB( I ) 

CONTINUE 


ORiGtr’AL PASS li 

OF POOR QUALiTY 


CALL ZMULTCD (BM1 ,FB,XIBD,NB,KI ) 

DO 140 1 = 1, IF 
XIBDD( I)=FI(I)*XIBD(I) 

CONTINUE 


CALL ZMULTCD (H3I .XIBDD, XIBDD0 , IF . KI ) 

CALL ZMULTCD ( BM 1 T , X I BDD0 , QNBDD , I F , KB ) 

DO 160 1:1, NB 

QNBDD0( I )=FB( I ) -QNBDD ( I ) 

CONTINUE 

CALL TIMCHK (6HINITL ) 


H. CALCULATE NUMBER OF TIME POINTS TO BE USED 


NTP=( ENDT- STARTT ) /DELTAT+1 . 1 

NWsNWRITE 

REWIND NWFILE 

WRITE (NWFILE) IRUNNO, I DATE, STARTT ,ENDT .DELTAT ,NB, IF , (BUF , 1=1 , 10) 
I. RESPONSE LOOP 


CALL TIMCHK (6HRESPON) 

DO 500 ITPsl.NTP 

T=STARTT+FLOAT ( I TP - 1 )*DELTAT 

READ (NFORFL) T2 . ( FB ( I ) . I* 1 ,NB ) , ( F I ( I ) , 1: 1 , IF ) 

DO 220 1:1 ,NB 

PB( I )*FB( I )-D3( I )*QNBD0( I ) -D5( I ) *QNBDD0 ( I ) -OMB2 ( I ) *QNB0 ( I ) 
220 CONTINUE 

CALL ZMULTCD !D4 , XIBDO , XIBD , IF ,KI ) 

CALL ZMULTCD (D6, XIBDDO, XIBDD, IF ,KI ) 

CALL ZMULTCD (BK2.XIB0.XIB, IF ,KI ) 

DO 240 1:1, IF 

FI(I)sFI(I)-XIBD(I) -XIBDD ( I ) -XIB ( I ) 

240 CONTINUE 


12. CALCULATION OF ACCELERATIONS - QNBDD AND XIBDD 
CALL ZMULTCD ( A2,FB,XIB,NB,KI ) 
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c 


c 

C 

C 


DO 260 1*1, IF 
XIEM I )=XIB( I )+FI ( I ) 
260 CONTINUE 


ORIGiiVAi. j ; • 

OF POOR QUALITY 


CALL ZMULTCD ( A 1 , XIB.XIBDD, IF ,KI ) 
CALL ZMULTCD ( A2T.XIBDD.QNBDD, IF ,KB) 


DO 280 1*1, NB 

QNBDD( I ) *QNBDD( I ) -D 1 ( I )*FB( I ) 
280 CONTINUE 


13. CALCULATION OF QNB, QNBD, XIB, AND XIBD 


DO 300 I* 1 , NB 

QNBD ( I ) *QNBD0 ( I ) +C3*QNBDD0 ( I )+C1 *QNBDD ( I ) 

QNB ( I ) *QNB0 ( I ) ♦DELTAT*QNBD0 ( I ) +C4*QNBDD0 ( I ) +C2*QNBDD ( I ) 
300 CONTINUE 

DO 320 1*1, IF 

XIBD( I )*XIBD0( I )+C3*XIBDD0( I )+C1*XIBDD( I ) 

XIB( I ) =XIB0( I )+DELTAT*XIBD0( I )+C4*XIBDD0( I )+C2*XIBDD( I ) 
320 CONTINUE 


14. WRTTE ANSWERS ON NWFILE FOR LATER USE 


WRITE (NWFILE) T, (QNB0( I ) ,1=1, NB ) , (XIB0( I) ,1=1 , IF) , 

+ (QNBD0( I ) , 1 = 1 ,NB) , (XIBD0( I ) , I~1 , IF ) , 

+ (QNBDDO(I) ,I=1,NB), ( XIBDOO ( I ) , I* 1 . IF ) , BUF 

15. SEE IF DATA SHOULD BE PRINTED 


IF ( ITP .LT. NTP .AND. NW .LT. NWRITE ) GO TO 400 
CALL PAGEHD 
NLINE* 10 

WRITE (NOT, 2010) T 

NXSI= 1 

NXEI=NB 

IF ( NXEI .GT. (NLPP-NLINE ) ) NXEI =NLPP-NLINE 
360 WRITE (NOT, 2012) ( I ,QNBDD0( I ) ,QNBD0( I ) ,QNB0( I ) ,I*NXSI .NXEI) 
NLINE=NLINE+NXEI-NXSI+1 
IF (NB .EQ. NXEI) GO TO 370 
CALL PAGEHD 
WRITE ( NOi ,2011 ) T 
NLINE= 10 
NXSI=NXEI+1 
NXEI=NB 

IF ( (NXEI-NXSI ) .GT. (NLPP-NLINE)) NXEI=NXS1+NLPP-NLINE 
GO TO 360 

370 CONTINUE 
NXSP= 1 
NXEP=IF 

IF ((NLINE+20) .LT. NLPP) GO TO 380 
CALL PAGEHD 

380 WRITE (NOT, 2011) T 
NLINE=NLINE+ 10 

IF ( NXEP .GT. (NLPP-NLINE)) NXEP=NLPP-NLINE 
390 WRITE (NOT, 2013) ( I+NB , XIBDD0( I ) , X I BOO ( 1 ) , X I BO ( I ) , I=NXSP , NXEP ) 
IF (IF .EQ. NXEP) GO TO 395 
NXSP=NXEP+ 1 


HI 



o o o o 


ORIGINAL PAGE IS 
OF POOR QUALITY 


NXEP=IF 
CALL PAGEHD 
WRITE (NOT, 2011) T 
NLINE* 10 

IF ( (NXEP-NXSP ) .GT. (NLPP-NLINE) ) NXEP=NX$P+NLPP-NLINE 
GO TO 390 
C 

395 NW=0 
400 NW=NW+ 1 


15. REASSIGN 


DO 420 1=1, NB 
QNB0( I ) =QNB ( I ) 

0NBD0( I)=QNBD( I) 

ONBDDO ( I ) =QNBDD ( I ) 

420 CONTINUE 
C 

DO 440 1*1, IF 
X I BO ( I )=XIB( I ) 

XIBDOd )=X1BD( I ) 

XIBDD0( I ) =XIBDD( I ) 

440 CONTINUE 
C 

500 CONTINUE 

CALL TIMCHK (6HRESPON) 
C 

RETURN 

C 

999 CONTINUE 

CALL ZZBOMB (6HZRESP , NERROR) 

C 

END 
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c 


c 

c 


PROGRAM SCRESP6 ( INPUT .OUTPUT , TAPE5=INPUT , TAPE6=0UTPUT , 

+ TAPE20.TAPE30 TAPE31 , TAPE32 , TAPE33, TAPE34, TAPE40) 


1 CALL START 

CALL TIMCHK (6HTBEGIN) 
CALL TIMCHK (6HSCPRES) 

CALL ZSCPRES 


GO TO 1 
END 


ORJGfNAL PASS 53 
OF POOR QUALITY 


CALL TIMCHK (6HSCPRES) 
CALL TIMCHK (6HTPRINT ) 


******************************* 
* * 

* ZSCPRES * 

* * 
******************************* 


SUBROUTINE ZSCPRES 

SUBROUTINE ZSCRES PRODUCES THE RESPONSE OF THE COUPLED 
BOOSTER/PAYLOAD SYSTEM USING A COMBINATION BASE DRIVE / COUPLED 
BASE DRIVE FORCING FUNCTION. 

DEVELOPED BY RC ENGELS AND TG SHANAHAN, MAY 1982. 


COMMENTS 


1. SUBROUTINE ZSCPRES IS PART OF A COMPLETE BOOSTER/PAYLOAD 
INTEGRATION SOFTWARE PACKAGE USING A DIRECT NUMERICAL 
INTEGRATION TECHNIQUE. A DISCUSSION OF THIS TECHNIQUE CAN 
CAN BE FOUND IN "STRUCTURAL DYNAMICS PAYLOAD LOADS 
ESTIMATES - FINAL REPORT, SEPTEMBER 1982". 

2. SUBROUTINE ZCSPRES USES A MODIFIED FORM OF THE NEWMARK- 
CHAN-BETA INTEGRATION SCHEME. 

3. THE FOLLOWING DATA IS PUT ON NEWFILE: 

- A HEADER 

- THE INTERFACE AND PAYLOAD(S) MODAL RESPONSE DATA 

4. SUBROUTINE ZSCPRES USES THE FOLLOWING FORMA SUBROUTINES: 

- PAGEHD, READ, READIM, TIMCHK, ZAABB, ZERO, ZINV3, ZMULT , 
ZREAD, ZRVAD, ZSIZE, ZTOD, ZTRANS, ZWRKFL , ZZBOMB, ZZERO 

5. SUBROUTINE ZCSPRES ALSO USES THE FOLLOWING SPECIAL PURPOSE 
SUBROUTINES THAT WERE DEVELOPED ESPECIALLY FOR THIS SUBROUTINE 
PACKAGE: 

- ZABDI, ZMULTCD , ZMULTDD 
SUBROUTINE ARGUMENTS 


SUBROUTINE ZSCPRES HAS NO SUBROUTINE ARGUMENTS. 


EXAMPLE OF A CALLING PROGRAM ON CDC 172/720/730 
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FILE ASSUMPTIONS: 

- TAPE1 s WORK FILE REQUIRED BY ZRESP. NWRKFL=1 . 

- TAPE10 * FORMA FILE (FOR INPUT DATA). NOTE THAT 

MORE THAN ONE FORMA FILE MAY BE NECESSARY 
IF INPUT DATA IS RECORDED ON SEVERAL FORMA 

- TAPE11 * SEQUENTIAL FILE (FOR OUTPUT DATA). NWFILE=11. 


PROGRAM SCPRES ( INPUT .OUTPUT , TAPE5» INPUT , TAPE6=OUTPUT , 
+ TAPE1 .TAPE 10, TAPE 1 1 ) 


1 CALL START 

CALL ZSCPRES 

GO TO 1 
END 


ORIGINAL PAGS IS 

OF POOR QUALITY 


CALL TIMCHK (6HTBEGIN) 
CALL TIMCHK (6HSCPRES) 

CALL TIMCHK ( 6HSCPRES) 
CALL TIMCHK (6HTPRINT ) 


INPUT FORM 

CALLING PROGRAM MUST CALL START 


READ NWFILE,NWRKFL,NWRITE,NRESOFL (415) 

READ STARTT, ENDT, DELTAT (3E10.0) 

READ GAMMA, BETA (2E10.0) 

READ EPSILON (EIO.O) 

READ NPAY (15) 

READ NF, NE, IF, NP (415) 

READ NDAMPB , NDAMPI , NDAMPP (315) 

CALL ZREAD (FREQB) 

IF (NDAMPB .EQ. 0) GO TO 1 
CALL READ (DAMPB,NR1 , NCI , 1 ,KB) 

GO TO 2 

1 READ ZETAB (EIO.O) 


2 CALL ZREAD ( FREQI ) 

IF (NDAMPI .EQ. 0) GO TO 3 
CALL READ (DAMPI , NR2.NC2, 1 , K I ) 

GO TO 4 

3 READ ZETAI (EIO.O) 

4 CALL ZREAD (FREQP) 

IF (NDAMPP .EQ. 0) GO TO 5 
CALL READ (DAMPP,NR2,NC2, 1 ,KP) 

GO TO 6 

5 READ ZETAP (EIO.O) 

6 CALL ZREAD (B2) 

CALL ZREAD (P2) 

CALL READ ( QNBO , NR3 , NC3 , 1 , KB ) 

CALL READ ( QNBDO , NR4 , NC4 , 1 , KB ) 

CALL READ (QIB0,NR5,NC5, 1 ,KI ) 

CALL READ ( QIBDO , NR6 , NC6 , 1 , KI ) 

CALL READ (QNP0,NR7,NC7, 1 ,KP) 

CALL READ (QNPD0,NR8,NC8, 1 ,KP) 

RETURN 


DEFINTITION OF INPUT VARIABLES 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


B2 

BETA 

DAMPB 

DAMP I 

DAMPP 

DELTAT 

ENDT 

EPSILON 

FREQB 

FREQI 

FREQP 

GAMMA 

IF 

NB 

NDAMPB 


NDAMPI 

NDAMPP 

NF 

NFORFL 

NP 

NWFILE 

NWRITE 

NWRKFL 

P2 

QIBO 

QIBDO 

QNBO 

QNBDO 

QNPO 


THF. INTERFACE/BOOSTER MASS COUPLING MATRIX IN 
PARTITION-LOGIC. SIZE (NB, IF ) . 

INPUT PARAMETER FOR NEWMARK-CHAN-BETA NUMERICAL 
INTEGRATION TECHNIQUE. A GOOD VALUE IS BETA* 0.25 
BOOSTER MODAL DAMPING MATRIX IN DENSE-LOGIC. 
DIAGONAL MATRIX INPUT AS A ROW VECTOR. 

SIZE ( 1 ,NB) . 

INTERFACE MODAL DAMPING MATRIX IN DENSE-LOGIC. 
DIAGONAL MATRIX INPUT AS A ROW VECTOR. 

SIZE ( 1 , IF ) . 

PAYLOAD MODAL DAMPING MATRIX IN DENSE-LOGIC. 
DIAGONAL MATRIX INPUT AS A ROW VECTOR. 

SIZE ( 1 ,NP ) 

TIME STEP FOR INTEGRATION ROUTINE. 

STOPPING TIME FOR THE NUMERICAL INTEGRATION 
ROUTINE. 

TRUNCATED, CANTILEVERED BOOSTER FREQUENCY VECTOR 
IN PARTITION-LOGIC. SIZE (1,NB) 

INTERFACE FREQUENCY VECTOR IN PARTITION-LOGIC. 

SIZE ( 1 , IF ) 

TRUNCATED, CANTILEVERED PAYLOAD FREQUENCY VECTOR 
IN PARTITION-LOGIC. SIZE ( 1 , NP ) 

INPUT PARAMETER FOR NEWMARK-CHAN-BETA NUMERICAL 
INTEGRATION TECHNIQUE. A GOOD VALUE IS GAMMA =0.5 
NUMBER OF INTERFACE DOFS. 

NUMBER OF TRUNCATED, CANTILERED BOOSTER MODES. 

0 FOP A CONSTANT VALUE OF MODAL DAMPING IN THE 
BOOSTER MODAL DAMPING MATRIX. 

1 FOR A VARIABLE VALUE OF MODAL DAMPING IN THE 
BOOSTER MODAL DAMPING MATRIX. 

(MUST INPUT DAMPB FOR NDAMPB =1). 

0 FOR A CONSTANT VALUE OF MODAL DAMPING IN THE 
INTERFACE MODAL DAMPING MATRIX. 

1 FOR A VARIABLE VALUE OF INTERFACE MODAL 
DAMPING. MUST INPUT DAMPI WHEN NDAMPI=1. 

0 FOR A CONSTANT VALUE OF MODAL DAMPING IN THE 
PAYLOAD MODAL DAMPING MATRIX. 

1 FOR A VARIABLE VALUE OF MODAL DAMPING. 

MUST INPUT DAMPP FOR NDAMPP = 1. 

NUMBER OF DOFS IN BOOSTER WHERE FORCES ARE APPLIED. 
LOGICAL FILE NUMBER CONTAINING THE INTERPOLATED 
FORCE DATA. Th.S DATA IS SEQUENTIAL. 

TOTAL NUMBER OF TRUNCATED, CANTILEVERED PAYLOAD 
MODES. 

LOGICAL FILE NUMBER FOR OUTPUT DATA. 

0 RESULTS ARE NOT PRINTED ON PAPER. 

1 RESULTS ARE PRINTED ON PAPER. 

LOGICAL FILE NUMBER FOR WORK FILE. 

THE PAYLOAD/INTERFACE COUPLING MASS MATRIX. 

SIZE ( I F , NP ) . 

DENSE-LOGIC VECTOR OF INITIAL MODAL DISPLACEMENTS 
OF THE INTERFACE DOFS AT STARTT. SIZE (I, IF) 
DENSE-LOGIC VECTOR OF THE INITIAL MODAL VELOCITIES 
OF THE INTERFACE DOFS AT STARTT. SIZE ( 1 , IF ) . 
DENSE-LOGIC VECTOR OF THE INITIAL MODAL 
DISPLACEMENTS OF THE BOOSTER DOFS AT THE STARTT. 
SIZE (1.NB). 

DENSE-LOGIC VECTOR OF THE INITIAL MODAL VELOCITIES 
OF THE BOOSTER DOFS AT STARTT. SIZE (1,NB) 
DENSE-LOGIC VECTOR OF THE INITIAL MODAL 
DISPLACEMENTS OF THE PAYLOAD DOFS. SIZE (1,NP). 
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QNPDO = DENSE-LOGIC VECTOR OF THE INITIAL MODAL VELOCITIES 
OF THE PAYLOAD DOFS AT STARTT. SIZE (1,NP). 

ZETAB = VALUE OF BOOSTER MODAL DAMPING FOR ALL DOFS WHEN 
NDAMPB = 0. 

ZETAI s VALUE OF INTERFACE DAMPING FOR ALL DOFS WHEN 
NDAMPI =0. 

ZETAP = VALUE OF PAYLOAD MODAL DAMPING FOR ALL DOFS WHEN 
NDAMPP = 0. 


A. DIMENSION, COMMON, DATA, FORMAT 


ur:c;nAu page is 

OF POOR Q'JA_:7Y 


COMMON /NITNOT/ NIT, NOT 

COMMON /LSTRT4/ NLINE.NLPP 

DIMENSION D1 (500) , D2 ( 200 ) ,D3( 500) ,D4(500) ,D5(200) , D6 ( 500 ) ,D7(500) , 
+ j8(200) , 09(500 > , 

+ FB ( 500 ) , FI (200) , F P { 500 ) , 

+ DAMP I (200) , 

+ QNB ( 500 ) , QNBD ( 500 ) , QNBDD ( 500 ) , 

+ QNBO ( 500 ) , QNBDO ( 5C J ) , QNBDDO ( 500 ) , 

♦ QNBRO ( 500 ) , QNBRDO ( 500 ) , QNBRDDO ( 500 ) , 

+ QNBR ( 500 ) , QNBRD ( 500 ) , QNBRDD ( 500 ) , 

+ QNBN ( 500 ) , QNBND ( 500 ) , QNBNDD ( 500 ) , 

+ Q I BO ( 200 ) ,QIBD0(200) ,QIBDD0(200) , 

+ Q I B ( 200 ) , QIBD(200) , QIBDD(200) , 

+ XIBN(200) , XIBND ( 200 ) , XIBNDD ( 200 ) , 

+ QI BRO ( 200 ) ,QIBRDT)(20b) , QIBRDDO ( 200 ) , 

+ QI BR ( 200 ) ,QIBRD(200) , QI BRDD ( 200 ) , 

+ QI BN ( 200 ) ,QIBND(200) ,QIBNDD(200) , 

+ QNPO ( 500 ) , QNPDO ( 500 ) , QNPDDO ( 500 ) , 

+ QNP ( 500 ) , QNPD ( 500 ) , QNPDD ( 500 ) , 

+ OMB2(500) ,OMI2(200) , 0MP2 ( 500 ) , 

+ IVECI200) 


DA T A kB,KI,KP /500,200,500/ 

DATA BUF /-1.E50/ 

C 

1000 FORMAT (1015) 

1100 FORMAT (10E10.0) 

1200 FORMAT (//9X.8H TIME = .F10.6) 

1250 FORMAT (//10X,*TIME = *,F10.6,4X,*(C0NTINUED)*) 

1300 FORMAT (//9X.15H APPLIED FORCES /( 10X, 1P5E16.8) ) 

1400 FORMAT ( //5X , ^INTERFACE RESPONSE (MODAL COORDINATES)*,/ , 

♦ 5X , * *, 

+ //9X,4H ROW, 6X , 13H ACCELERATION , 8X , 9H VELOCITY, 

+ // , ( 10X, 13, 1P3E20.8) ) 

1450 FORMAT ( //5X , ^INTERFACE RESPONSE (MODAL COORDINATES)*,/, 

+ 5X,* *,//, 

+ 27X , *T0TAL* , 32X , *RESIDUAL* , 3 1 X , *NOMINAL* , / , 

+ 2X,*ROW*,5X,3(*ACC*. 1 0X , *VEL* , 1 0X , *D I S* , 10X) ,/ , 

♦ (2X,I3,3( 1P3E13.4,* / *))) 

1500 FORMAT ( //4X . * NON- INTERFACE RESPONSE (MODAL COORDINATES )*,/, 5X , 
+ 13( 1H-) , IX, 8( 1H-) ,2X, 19( 1H-) ,//9X,* ROW*,7X, 

+ *ACCELERATION* , 9X , *VELOCITY* , 1 1 X , *DI SPLACEMENT*// 

+ , ( 10X, 13 , 1P3E20 .8) ) 

2001 FORMAT (/////, 50X,*INPUT PARAMETERS* ,/ ,50X . 16( 1H- ),/// , 

+ 48X,*NWFILE =*, 15 , / , 48X , *NWRKFL =* , 15 , / . 

+ 47X , *NRES0FL **,I5,//, 

+ 30X , -DATA IS WRITTEN ON PAPER EVERY * . 15 ,* TIME STEPS*) 

2002 FORMAT ( // , 48X , *STARTT «*,F10.6,/,50X,*ENDT **,F10.6,/, 

+ 48X , *DELTAT **,F10.6) 
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2003 FORMAT ( // , 30X , *PARAMETERS FOR NEWMARK-CHAN-BETA iNTEGF TiON*, 

+ * ROUTINE* , / / , 49X , *GAMMA =*,F10.6,/, 

+ 50X,*BETA **,F10.6) 

2004 FORMAT (/30X,*VALUE OF BOOSTER MODAL TAMPING IS CONSTANT*, 

♦ 5X,*(NDAMPB * 1)*) 

2005 FORMAT (/30X,*VALUE OF PAYLOAD MODAL DAMPING IS A CONSTANT*, 

+ 5X,*(N0AMPP * 1)*} 

2006 FORMAT ( //30X,*NUMBER OF FORCES APPLIED TO BOOSTER **,15,//, 

+ 32X,*NUMBER OF TRUNCATED BOOSTER MODES **,I5,//, 

♦ h1X,*NUMBER OF INTERFACE DOFS **,I5,//, 

+ 32X,*NUMBER OF TRUNCATED PAYLOAD MODES =*,I5,//, 

+ 47X,*NUMBER OF PAYLOADS =*,I5) 

3005 FORMAT (/////, 20X , * FOR TIME * *,F12.4,* DIRECT BASE DRIVE USED*) 

* * ** #** ******** * ********* m*** * 

BEGINNING OF PROGRAM ORIGINAL PAG£ IS 

OF POOR QUALITY 

B. READ INPUT DATA 


READ (NIT, 1000) NWF I LE , NWRKFL , NWRITE , NRESOFL 

READ (NIT, 1100) STARTT , ENDT ,DELTAT 

READ (NIT, 1100) GAMMA, BETA 

READ (NIT, 1100) EPSILON 

READ (NIT, 1000) NPAY 

READ (NIT, 1000) NF ,NB , IF ,NP 

READ (NIT, 1000) NDAMPB , NDAMP I , NDAMPP 

CALL PAGEHD 

WRITE (NOT, 2001) NWFILE, NWRKFL, NRESOFL, NWRITE 
WRITE (NOT, 2002) STARTT , ENDT .DELTAT 

WRITE (NOT, 2003) GAMMA, BETA 

IF (NDAMPB .EQ. 0) WRITE(NOT ,2004) 

IF (NDAMPP .EQ. 0) WRITE(NOT ,2005) 

WRITE (NOT, 2006) NF ,NB, IF ,NP ,NPAY 

CALL ZWRKFL (NWRKFL) 

C. CALCULATION OF CONSTANTS 


CO*DELTAT*DELTAT 

C1=GAMMA*DELTAT 

C2=BETA*C0 

C3*( 1 . -GAMMA )*DELTAT 
C4=(0.5-BETA)*CC 

D. CALCULATION OF THE VECTORS -D1INV, D4, AND D7 


CALL TIMCHK (6HDVECS ) 

CALL ZREAD ( FREQB) 

CALL ZTOD ( FREQB, QNB,1,NB,1, KB) 

IF (NDAMPB .EQ. 0) GO TO 10 
CALL READ (QNBD.NR1 ,NC1 , 1 ,KB) 

DO 20 1*1, NB 

QNBD ( I ) * 1 2 . 5663706 1 *QNBD ( I ) *QNB ( I ) 

OMB 2 ( I ) *39 . 4784 1 76*QNB ( T . ) *QNB ( I ) 

20 CONTINUE 
GO TO 30 
10 CONTINUE 

READ (NIT, 1100) ZETAB 
DO 40 1*1, NB 
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C 


C 

C 

C 


QNBD ( I ) * 1 2 . 5663706 1*ZETA8*QNB ( I ) 
0MB2 ( 1 ) 8 39 . 4784 1 76*QNB ( I ) *QNB ( I ) 
40 CONTINUE 
30 CONTINUE 


ORIGINAL PAGE IS 
OF POOR QUALITY 


DO 50 1*1 ,NB 

D1(I)*-1./(1.+C1 *QNBD ( I ) +C2*0MB2 ( I ) ) 

D4( I ) sQNBD ( I ) +DELT AT*0MB2 ( I ) 

D7 ( I ) *C3*QNBD ( I ) +C4*0MB2 ( I ) 

50 CONTINUE 

E. CALCUATION OF THE VECTORS D2, D5, AND D8 


CALL ZREAD ( FRFQI ) 

CALL ZT0D ( FREQ I ,QIB, 1 , IF, 1 , K 1 ) 

IF (NDAMPI .EQ. 0) GO TO 55 
CALL READ ( DAMP I , NR3 , NC3 ,1 , K I ) 

DO 52 1*1, IF 

DAMP I ( I ) * 12 . 56637061*DAMP1 ( I )*QIB( I ) 
OMI2(I)=3S.47^4176*QIB(I)*QIB(I) 

52 CONTINUE 
UO TO 58 

55 READ (NIT, 1100) ZETAI 
DO 56 1*1, IF 

DAMP I ( I ) * 12. 5663706 1*ZETAI*QIB( I ) 
OMI2(I)*39.4784176*QIB(I)*QIB(I) 

56 CONTINUE 

58 CONTINUE 

DO 59 1*1, IF 

D2( I )*1 .+C1*DAMPI ( I )+C2*0MI2(I ) 

D5( I ) *DAMP 1(1) +DELTAT*0MI2( I ) 

D8( I ) =C? -DAMP 1(1) +C4*OMI2 ( I ) 

59 CONTINUE 


F. CALCULATION OF THE VECTORS -D3INV, D6, AND D9 


CALL ZREAD (FREQP) 

CALL ZTOD ( FREQP , QNP , 1 , NP , 1 , KP ) 

IF (NDAMPP .EQ. 0) GO TO 60 
CALL READ ( QNPD ,NR2 , NC2 , 1 ,KP) 

DO 70 1*1, NP 

QNPD( I ) * 12. 5663706 1*QNPD( I )*QNP(I ) 
OMP2 (11*39.47841 76*QNP ( I ) *QNP ( I ) 

70 CONTINUE 
GO TO 80 
60 CONTINUE 

RtAD( NIT ,1100) ZETAP 
DO 90 1*1, NP 

QNPD(I)*12. 5663706 * ZETaP * QNP(I) 
OMP2( I ) * 39.4784176^QNP(I)*QNP(I) 

90 CONTINUE 
C 

80 CONTINUE 
C 

DO 100 1*1, NP 

D3( I ) *- 1 . / ( 1 .+C1*QNPD( I )+C2 >i! 0MP2( I ) ) 
06 ( I ) *QNPD( I )+DrLTAT*0MP2( I ) 

09 ( 1 ) *C3*QNPD ( ! ) +C4*0MP2 ( J 
100 CONTINUE 148 
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ORIGINAL FAGii* SS 

OF POOR QUALITY CALL TIMCHK ( 6HDVECS ) 

G. CALCULATION OF A1, A2, AND A3 MATRICES 


CALL TIMCHK (6HA123 ) 

CALL ZREAD (B2) 

CALL ZREAD (P2) 

CALL ZMULTDD (32,D1 ,NB,A2) 

CALL ZMULTDD (P2,D3,NP,A3) 

CALL ZTRANS (B2,B2T) 

CALL ZTRANS (P2.P2T) 

CALL ZMULT ( A2.B2T ,A2B2T ) 

CALL ZMULT (A3.P2T.A3P2T) 

CALL ZAABB ( 1 . ,A2B2T, 1 . , A3P2T ,HELP2) 

CALL ZABDI (HUP2.D2, IF, All ) 

CALL ZINV3 (A1I.A1.1) 

CALL ZTRANS (A2,A2T) 

CALL ZTRANS (A3.A3T) 

CALL TIMCHK (6HA123 ) 

H. CALCULATION OF MPI2 , KPI2, AND PHI INV= ( PHI IB ) T*BPM2 


CALL ZREAD ( PHI IB ) 

NERROR= 1 

CALL ZSIZE (PHIIB.NRI.NCI) 

IF (NRI .NE. NCI .OR. NRI . NE. IF) GO TO 999 

C 

CALL ZREAD (BPM2) 

C 

CALL ZZERO (MPI , IF , IF ) 

CALL ZZERO ( KPI , IF , IF ) 

C 

DO 122 1=1, NPAY 
C 

READ (NIT, 1000) IFP 
CALL ZREAD (PM2) 

CALL ZREAD ( PK2) 

CALL READIM ( IVEC ,NRP , NCP , 1 , KI ) 

C 

CALL ZSIZE (PM2,NRM,NCM) 

CALL ZSIZE (PK2,NRK,NCK) 

NERROR=2 

IF (NRM .NE. NCM .OR. NRK .NE. NCK ) GO TO 999 

NERROR-3 

IF (NRM .NE. NRK .OR. NRM .NE. IFP) GO TO 999 

NERRQR=4 

IF ( NCP .NE. IFP) GO TO 999 

C 

CALL ZRVAD ( 1 .0.PM2, IVEC, IVEC, NCP, NCP ,MPI ) 

CALL ZRVAD (1.0, PK2 , IVEC , IVEC ,NCP , NCP ,KPI ) 

C 

122 CONTINUE 
C 

CALL ZTRANS ( PHI IB , PHI IBT ) 

CALL ZMULT ( PHI IBT , MP I >PI2) 

CALL ZMULT ( PHI IBT ,KPI , KPI2 ) 

C 

CALL ZMULT ( PHI IBT , BPM2 , PHI INV ) 

C 

C CHECK THE ACCURACY OF THE INVERSE 
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QKiUiA'- - I* '.i W 

CALL ZMULT (PKIINV.PHIIB, UNITY) Of POOR C mUTY 

CALL ZWRITE (UNITY .6HUNITY ) 


I. CALCULATION OF INITIAL ACCELERATIONS - QNBDDO. QIBDDO, 0NPD00 


CALL TIMCHK (6HINITL ) 

CALL ZMULT (B2.B2T.HELP3) 

CALL ZMULT (P2.P2T.HELP4) 

CALL ZAABB ( - 1 . ,HELP4, -1 . ,HELP3,HELP5) 

DO 125 I«1 , IF 
FI ( 1 )*1 . 

125 CONTINUE 

CALL ZABDI (HELP5.F1, IF.AI ) 

CALL Z1NV3 ( A I , A , 1 ) 

II. READ IN INITIAL PAYLOAD DISPLACEMENTS AND VELOCITIES 


CALL READ (QNP0.NR7.NC7, 1 ,KP) 
CALL READ ( QNPDO , NR8 . NC8 , 1 , KP ) 

CALL ZERO (QNBRO, 1 , NB , 1 > 

CALL ZERO ( QNBRDO , 1 ,NB , 1 ) 

CALL ZERO (QIBRO, 1 , IF , 1 ) 

CALL ZERO (QIBRDO, 1 , IF , 1 ) 


12. REAO THRU NRESOFL UNTIL THE STARTT IS REACHED 


C 


C 


C 


C 


C 

C 


REWIND NRESOFL 

NTP*(ENDT-$TARTT)/DELTAT+1 . I 

NWbNWRITE 

NBPIF«NB+IF 

READ (NRESOFL) IRUNNO, IDATE,STARTT2,ENDT2,DELTAT2,NB2, IF2, 
♦ (BUFCH.I«1.10) 


IF ( N82 .NE. NB) 

IF ( IF2 .NE. IF) 

IF (DELTAT .NE. DELTAT2) 
IF ( STARTT2 .LT. STARTT) 
IF (STARTT .EO. STARTT2 ) 


NERR0R»7 
GO TO 999 
NERR0R»8 
GO TO 999 
NERR0R»4 
GO TO 999 
NERR0R*5 
GO TO 999 
NERR0R>6 

GO TO 180 


DELSTbSTARTT2-STARTT 

NTSbOELST/DELTAT 

NEHR0Rb6 

IF ( (NTS*DELTAT) .NE. DELST) GO TO 999 


DO 160 KbI.NTS 

READ (NRESOFL) BUF . ( ( BUF .1*1. NBPIF ) . J» 1 . 3 ) . BUF 
160 CONTINUE 


180 CONTINUE 


READ (NRESOFL) TO. <ONBN( I ) . I * 1 . NB ) , (XI BN (I), 1*1, IF). 

♦ (QNBND( I ) , 1*1 ,NB) , ( X I BND ( I ) , I«1 , IF ) , 

* ( ONBNDD ( I ) , I * 1 , NB ) . ( X I BNDD » I ) . I * 1 . 1 F ) . BUF 
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ORIGINAL F- 

of poor qOs;; 


13. CALCULATE THE NOMINAL INTERFACE MODAL RESPONSE 


C 

C 

C 

C 


C 


C 


C 

C 

C 

C 

C 

C 

C 


C 

C 

C 

C 


C 

C 

C 

C 


C 

C 

C 

C 

c 

c 

c 


CALL ZMULTCD ( PHIINV , XIBN.QIBN, IF ,KI ) 

CALL ZMULTCD (PHIINV, XIBND.QIBND, IF, KI ) 

CALL ZMULTCD ( PHI INV ,XIBNDD,QIBNDD, IF ,KI ) 

14. CALCULATE THE BASE DRIVE FORCING FUNCTONS 


CALL ZMULTCD (P2T.QIBNDD.FP, IF.KP) 

DO 220 1=1, NP 

FP( I )=-FP( I ) -QNPD( I )*QNPDO( I ) -0MP2( I )*QNPO( I ) 

220 CONTINUE 

CAi_L ZMULTCD (MPI2.XIBNDD, FI , IF , KI ) 

CALL ZMULTCD ( KPI2 , XIBN , XIBNDD , IF , KI ) 

CALL ZMULTCD (P2,FP,QNPDD,NP,KP) 

DO 240 1 = 1, IF 

FI(I)=-FI(I ) -XIBNDD ( I ) -DAMP I ( I )*QIBND( I ) -QNPDD( I ) 
240 CONTINUE 

15. CALCULATION OF THE RESPONSE AT T=STARTT 


I5A. CALCULATION OF BASE DRIVE INTERFACE RESPONSE 


CALL ZMULTCD ( A , FI , QIBRDDO , IF ,KI ) 

DO 250 1 = 1, IF 

QIBDDOI I )=QIBRDD0( I )+QIBNDD( I ) 

OIBDO ( I ) =OIBND< I ) 

QIBO ( I )=QIBN( I ) 

250 CONTINUE 

I5B. CALCULmTION OF BASE DRIVE BOOSTER RESPONSE 


CALL ZMULTCD (B2T, QIBRDDO, QNBRDDO, IF , KB) 

DO 260 1=1. NB 
QNBRDDOi I )=-QNBRDDO( I ) 

260 CONTINUE 

I5C. CALCULATION OF PAYLOAD RESPONSE 


CALL ZMULTCD ( P2T , QIBRDDO , QNPDDO , IF , KP ) 

DO 280 1=1, NP 

QNPDDO ( I ) =FP ( I ) -QNPDDO ( I ) 

280 CONTINUE 


CALL TIMCHK ( 6HINITL ) 

tt****************************************************************** 

CALL TIMCHK (6HRESP ) 


d. RESPONSE LOOP 


REWIND NWFILE 

WRITE ( NWF I LE ) IRUNNO , IDA^ STARTT , ENDT , DELTAT , I F , NP , ( BUF , I = 1 , 1 0 ) 
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c 

c 


EPS2=EPSIL0N*EPSIL0N 

IDBD-0 

IDBDP* 1 


ORIGIN- i - • 
OF POOR QOAi-lTY 


DO 600 ITP=1 ,NTP 

READ (NRESOFL) T , ( QNBN ( I ) , I = 1 , NB ) , (XIBN( I ) , 1*1 , IF ) , 

♦ (QNBND(I),I=1,NB), (XIBNDI I ) , 1*1 , IF ) , 

+ ( QNBNDD (I), 1*1, NB), (XI BNDD ( I ) , I = 1 , I F ) , BUF 


J 1 . CONVERT DISCRETE NOMINAL BOOSTER RESPCNSE TO 
NORMAL COORDINATES 

CALL ZMULTCD ( PHI INV , XIBNDD.QIBNDD, IF ,KI ) 

CALL ZMULTCD (PHIINV.XIBND.QIBND.IF.KI ) 


CALCULATE THE BASE DRIVE FORCING FUNCTIONS 


CALL ZMULTCD (MPI2 , XIBNDD , FI , IF ,KI ) 
CALL ZMULTCD < KPI2 , XIBN, QIBR , IF , KI ) 

CALL ZMULTCD (P2T, QIBNDD.FP, IF.KP) 


DO 300 1 = 1, IF 

FI(I) = -FI(I) -DAMP I ( I )*QIBND( I ) -QIBR ( I ) 
300 CONTINUE 


IF (IDBD .EQ. 1) GO TO 340 

IF SIGNIFICANT ADD IN THE FEEDBACK TERMS TO THE FORCING TERMS 


DO 320 1=1, NB 

FBI I )=-D4( I ) *QNBRD0 ( I ) -D7 ( I ) *QNBRDD0 ( I ) -0MB2 ( I ) *QNBR0 ( I ) 

320 CONTINUE 

CALL ZMULTCD ( A2,FB,QIBRDD,NB,KI ) 

DO 322 1 = 1, IF 

FI ( I )=FI( I )-D5( I )*QIBRD0( I )-D8( I )*QIBRDD0( I ) - OM I 2 ( I )*QIBR0( I ) 
+ +QIBRDDU) 

322 CONTINUE 

DO 324 1=1, NP 

FP( I )=FP( I )+D6( I ) *QNPD0 ( I )+D9( I )*QNPDD0( I )+OMP2( I )*QNP0( I ) 

324 CONTINUE 


CALCULATE THE RESIDUAL INTERFACE ACCELERATIONS 
AND COMPARE THE SIZE WITH THE NOMINAL ACCELERATIONS 


340 CALL ZMULTCD ( A3 , F P , QIBRD , NP ,KI ) 

C 

DO 350 1 = 1, IF 

FI ( I ) =FI ( I ) -QIBRDI I ) 

350 CONTINUE 
C 

CALL ZMULTCD ( A1 ,FI .QIBRDD, IF , KI ) 
C 

AMAGN=0. 

AMAGR=0. 

IDBDP=IDBD 
IDBD = 1 
C 

DO 380 1 = 1, IF l52 



ooo oooo o o O o o ooooo 


AMAGN=AMAGN+QIBNDD( I )*QIBNDD( I ) 
AMAGR=AMAGR+QIBRDD ( I )*QIBRDD( I ) 

380 CONTINUE 
C 

IF ( AMAGN .EQ. 0.0) GO TO 385 

IF ((AMAGR/ AMAGN) .LE. EPS2) GO TO 450 


ORIGINAL PAGE IS 
OF POOR QUALITY 


CALCULATE THE COUPLED BASE DRIVE RESPONSE 
(FEEDBACK IS SIGNIFICANT) 


385 IDBD=0 

CALL ZMULTCD (A2T,QIBRDD,QNBRDD, IF, KB) 
CALL ZMULTCD ( A3T .QIBRDD , QNPDD , IF ,KP ) 

DO 390 1=1, NP 

QNPDD ( I ) =QNPDD( I )+D3( I )*FP( I ) 

390 CONTINUE 

IF { IDBDP .EQ. 1) GO TO 420 

DO 400 1=1, NB 

QNBRDD ( I ) =QNBRDD ( I ) -D1 ( I ) *FB ( I ) 

400 CONTINUE 

GO TO 450 

420 DO 430 1=1, NB 

QNBRDD ( I)=-D1(I)*FB(I) 

430 CONTINUE 


04 . WRITE ANSWERS ON NWFILE FOR LATER USE 

450 WRITE (NWFILE) TO, (QIB0( I) , 1=1 . IF) , ( QNP0( 1 ) , 1=1 ,NP ) 

+ , (QIBDC( I ) , 1 = 1 , IF) , (QNPDO(I) , 1=1 ,NP) 

+ , (QIBDD0( I ) , 1=1 , IF ) , (QNPDOO( I ) , 1= 1 , NP ) ,BUF 

05. SEE IF DATA SHOULD BE PRINTED 


IF ( ITP .LT. NTP .AND. NW .LT. NWRITE ) GO TO 500 

CALL TIMCHK ( 6HWRITE ). 

CALL PAGEHD 
NLINE=13 

WRITE (NOT, 1200) TO 
NXSI= 1 
NXE I = I F 

IF (NXE I .GT. (NLPP-NLINE ) ) NXEI=NLPP-NLINE 
470 WRITE (NOT, 1400) ( I ,QIBDD0( I ) ,QIBD0( I ) ,QIB0( I ) , I=NXSI ,NXEI ) 
NLINE=NLINE+NXEI-NXSI+1 
IF (IF .EQ. NXEI) GO TO 480 
CALL PAGEHD 
WRITE (NOT, 1250) TO 
NLINE* 1 3 
NXSI=NXEI+1 
NXE I = I F 

IF ( (NXEI-NXSI ) .GT. (NLPP-NLINE)) NXEI=NXSI+NLPP-NLINE 
GO TO 470 
480 CONTINUE 
NXSP=1 
NXEP=NP 

NLINE=NLINE+13 
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IF ( (NLINE+10) .LT. NLPP) GO TO 485 OF POOR QUA 5 - f / 

CALL PAGEHD 

485 WRITE (NOT, 1250) TO 
NLINE=NLINE+10 

IF ( NXEP .GT. (NLPP-NLINE) ) NXEP=NLPP-NLINE 
490 WRITE (NOT, 1500) ( I+IF,QNPDD0( I ) ,QNPD0( I ) ,QNP0( I ) , I=NXSP,NXEP) 

IF (NP .EQ. NXEP) GO TO 495 

NXSP=NXEP+1 

NXEP=NP 

CALL PAGEHD 

WRITE (NOT, 1250) TO 

NLINE= 10 

IF ( ( NXEP-NXSP ) .GT. (NLPP-NLINE)) NXEP=NXSP+NLPP-NLINE 
GO TC 490 

495 NW=0 

CALL TIMCHK (6HWRITE ) 

500 NW=NW+1 


J6. CALCULATE VELOCITY AND DISPLACEMENT TERMS 
AND REASSIGN THE VALUES 


T0=T 


IF (IDBD .EQ. 1) GO TO 540 
CALCULATE COUPLED BASE DRIVE RESPONSE 


CALL TIMCHK (6HCOUPLE) 

DO 520 1=1, NB 

QNBRO ( I ) =QNBR0 ( I ) +DELTAT*QNBRDO ( I ) +C4*QNBRDD0 ( I ) +C2*QNBRDD ( I ) 
QNBRDO ( I ) =QNBRD0 ( I ) +C3*QNBRDD0 ( I )+C1 *QNBRDD ( I ) 

QNBRDDO ( I ) =QNBRDD ( I ) 

QNBO ( I ) =QNBN ( I ) +QNBR0 ( I ) 

QNBDO ( I ) sQNBND ( I ) +QNBRD0 ( I ) 

QNBDDO ( I ) =QNBNDD ( I ) ♦QNBRDDO ( 1 ) 

520 CONTINUE 

DO 522 1 = 1, IF 

QIBR0( I )=QIBR0( I )+DELTAT*QIBRD0( I ) +C4*QIBRDD0 ( I ) +C2*QIBRDD ( I ) 
QIBRD0( I ) =QIBRD0( I )+C3*QIBRDD0( I )+C1*QIBRDD( I ) 

QIBRDDO ( I )=QIBRDD( I ) 

QIB0( I )=QIB0( I )+DELTAT*QIBDO( I )+C4*QIBDD0( I ) 

+ +C2*(QIBNDD( I )+QIBRDD0( I ) ) 

QIBDD0( I ) =QIBNDD( I ) ♦QIBRDDO ( I ) 

QIBD0( I ) =QIBND( I )+QIBRD0( I ) 

522 CONTINUE 

DO 524 1=1, NP 

QNP0( I )=QNP0( I )+DELTAT*QNPDO( I )+C4*QNPDD0( I )+C2^QNPDD( I ) 

QNPDO ( I ) =QNPD0 ( I ) +C3*QNPDD0 ( I ) +C 1 *QNPDD ( I ) 

QNPDD0( I )=QNPDD( I ) 

524 CONTINUE 

CALL TIMCHK ( 6HCOUPLE ) 

GO TO 600 

CALCULATE THE DIRECT BASE DRIVE RESPONSE 


540 CONTINUE 

CALL TIMCHK ( 6HDIRECT ) 



ooo 


ORIGINAL r-A^; 

C OF POOR QUALITY 

DO 542 1=1, NB 
QNBOi 1 1 =QNBN( I ) 

QNBD0(I )=QNBND( I ) 

QNBDDO ( I ) =QNBNDD ( I ) 

542 CONTINUE 
C 

DO 544 1 = 1, IF 

QIB0( I ;=QIB0( I )+DELTAT*QIBDO( I )+C4*QIBDD0( I )+C2*QIBNDD( I ) 

Q1BD0( I > =QIBND( I ) 

OIBDDO ( I ) =QIBNDD ( I ) 

544 CONTINUE 
C 

DO 546 1=1, NP 
QNPDD ( I ) =D3 ( I ) *FP ( I ) 

QNPO ( I ) =QNP0 ( I ) +DELT AT*QNPDO ( I ) +C4*QNPDD0 ( 1 ) +C2*QNPDD ( I ) 

QNPD0( I ) =QNPD0( I )+C3*QNPDD0( I )+C1*QNPDD( I ) 

QNPDDO ( I ) sQNPDD ( I ) 

546 CONTINUE 

CALL TIMCHK (6HDIRECT ) 
C 

600 CONTINUE 

CALL TIWCHK (6HRESP ) 

K. FXIT 


RETURN 

C 

999 CONTINUE 
C 

CALL ZZBOMB (6HZRESP , NER. 2 n ) 
C 

END 
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ORIGINAL ui 

OF POOR QUALITY 


********************************* 
* * 

* ZABDI * 

* * 

********************************* 


SUBROUTINE ZABDI (MA.B.NRB.MZ) 


COMMON /LZWRKF/ 

COMMON / LZ 1 / 

COMMON / LZ2/ 

DIMENSION B ( 1 ) 
DATA KRCPRT 


NWRK, INDWRK! 100) ,MWRKSP( 10) 

MHA ( 10) , INDRPA( 201 ) , INDCPAI201 ) , SA ( 30 , 30 ) 
MHZ ( 10) , I NDR PZ ( 20 1 ) , INDCPZ (201 ) ,SZ(30,30) 

/ 30/ 


SUBROUTINE ZABDI ADDS A PARTITION-LOGIC MATRIX (A) TO A DENSE- 
LOGIC COLUMN VECTOR (B) WHICH REPRESENTS THE ELEMENTS OF A 
DIAGONAL MATRIX. 


ARGUMENT DEFINITION 


MA - INPUT PARTITION-LOGIC MATRIX (A). 

B - INPUT DENSELOGIC COLUMN VECTOR (B). (B) REPRESENTS 

THE ELEMENTS OF A DIAGONAL MATRIX. 

NRB - NUMBER OF ELEMENTS IN MATRIX ( B ) . 

MZ - OUTPUT PARTITION-LOGIC MATRIX (Z) = (A)-HB). 

FIND POSITION OF MATRIX (Z> IN INDWRK 


IF (MZ .GE. 1 .AND. MZ .LE. 99) GO TO 5 
DO 2 MZ= 1 , 99 

IF ( INDWRK (MZ+1 ) .EQ. 0) GO TO 5 
2 CONTINUE 

NERROR= 1 
GO TO 999 

READ MATRIX (A) HEADER 


5 CALL READRA ( NWRK ,MHA , 1 0 ,MA , INDWRK , 1 00 ) 

NRA=MHA ( 1 I 
NCA=MHA ( 2 ) 

NRPA=MHA ( 3 ) 

NCPA=MHA(4) 

NRLA=MHA( 5) 

NCLA=MHA(6) 

NERR0R=2 

IF ( NRA .NE. NRB .OR. NCA .NE. NRB) GO TO 999 

FORM MATRIX (Z) HE4DER 


DO 20 1=1.6 
20 MHZ ( I )=MHA( I ) 

DO 30 1=7.10 
30 MHZ ( I ) =0 

ADD MATRICES (A) AND IB) 


CALL READRA ( NWRK , INDRPA . 20 1 , 1 . MHA ( 9 ) . 2 ) 
CALL ZERO ( INDRPZ , 1 .201 . 1 1 


C 
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DO 200 IRPA = 1 , NRPA 

CALL READRA ( NWRK , INDCPA , 201 , IRPA , INDRPA ,201) 
CALL ZERO (INDCPZ, 1,201,1) 

NCSA=KRCPRT 

NEL=NCSA*KRCPRT 

DO 100 JCPA= 1 , NCPA 

IF (JCPA .NE. NCPA) GO TO 35 

NCSA=NCLA 

NEL =NCSA*KRCPRT 

35 IF ( INDCPA ( JCPA+ 1 ) .NE. 0) GO TO 40 
IF (JCPA .NE. IRPA) GO TO 100 
CALL ZERO (SA, NCSA, NCSA, KRCPRT) 

GO TO 60 

40 CALL READRA ( NWRK , SA , NEL , JCPA , INDCPA , 201 ) 

IF (JCPA .NE. IRPA) GO TO 90 
60 CONTINUE 

DO 80 1=1, NCSA 

SA (1,1 ) = SA ( I , I )+B( (IRPA-1 ) *KRCPRT+I ) 

80 CONTINUE 

90 CALL WRITRA ( NWRK , SA , NEL , JCPA , INDCPZ , 201 ) 

100 CONTINUE 

CALL WRITRA ( NWRK , INDCPZ , 20 1 , IRPA , INDRPZ , 20 1 ) 
200 CONTINUE 

CALL WRITRA ( NWRK , INDRPZ , 20 1 , 1 , MHZ ( 9 ) , 2 ) 

CALL WRITRA ( NWRK , MHZ , 1 0 , MZ , INDWRK , 1 00 ) 

RESTORE MASTER INDEX ON NWRK 


CALL STINDX ( NWRK , INDWRK , 1 00 ) 
RETURN 
C 

999 CALL ZZBOMB ( 6HZABDI .NERROR) 
END 


OR!G5TI"L 

OF POLM QwfW.iY 
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************************************** 


* ZMULTCD * 

* * 

************************************** 

SUBROUTINE ZMULTCD ( MA , B , Z , NRB , KRZ ) 

COMMON /LZWRKF/ NWRK , INDWRKl 100) ,MWRKSP< 10) 

COMMON / LZ 1 / MHA (10), INDRPA ( 201 ) , INDCPA( 201 ) , SA ( 30 , 30 ) 

DIMENSION B ( 1 ) , Z ( 1 ) 

DATA KRCPRT /30/ 

HYBRID PARTITION-LOGIC, DENSE-LOGIC MULTIPICATION SUBROUTINE. 
MULTIPLIES A PARTITION-LOGIC MATRIX (A), WITH A DENSE-LOGIC 
COLUMN VECTOR (B). RESULTS IN A DENSE-LOGIC COLUMN VECTOR (Z) 
(A) * (3) = (Z). 

DEVELOPED BY TG SHANAHAN. FEB, 82. 

SUBROUTINE ARGUMENTS 


MA - INPUT PARTITION-LOGIC MATRIX (A). 

B - INPUT DENSE-LOGIC COLUMN VECTOR (B). 

Z - OUTPUT DENSE-LOGIC COLUMN VECTOR (Z) 

NRB - NUMBER OF ELEMENTS IN (B) AND COLUMNS IN (A). 
KRZ - DIMENSION SIZE OF (Z) IN THE CALLING PROGRAM. 

COMMON EXPLANATIONS 


/LZWRKF/ - SHOULD HAVE BEEN INITIALIZED WITH SUBROUTINE ZWRKFL 
DATA COMES IN AND GOES OUT. 

/LZ 1 / - WORK SPACE. NO DATA COMES IN OR GOES OUT. 

NERROR EXPLANATIONS 


1 = DIMENSION SIZE OF { Z ) IS NOT SUFFICENTLY LARGE. 

2 = MATRICES (A) AND (B) ARE NOT COMPATABLE. 

READ IN MATRIX (A) HEADER 


CALL READRA i NWRK , MHA , 1 0 , MA , INDWRK , 1 00 ) 

NRA=MHA ( 1 ) 

NCA=MHA ( 2 ) 

NRPA = MHAI 3 ) 

NCPA=MHA ( 4 ) 

NRLA=MHA(5> 

NCLA=MHA I 6 ) 

NERROR= 1 

IF (KRZ .LT. NRA ) GO TO 999 

NERR0R=2 

IF (NCA .NE. NRB) GC TO 999 

PERFORM MULTIPICATION 


CALL READRA (NWRK. INDRPA. 201 . 1 , MHA ( 9 * . 2 ) 
CALL ZERO ( Z , NRA . 1 ,KRZ) 

DO 20 I RPA= 1 . NRPA 
NRSA=KRCPRT 

IFi IRPA.EO.NRPA) NRSA=NRLA 
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CALL RE ADR A ( NWRK , INDCPA ,201 , IRPA , INDRPA , 20 1 ) 

DO 20 JCPA= 1 , NCPA 

IF ( INDCPA ( JCPA+1 ) .EQ.O) GO TO 20 

NCSAsKRCPRT 

IF(JCPA.EQ.NCPA) NCSA=NCLA 

CALL READRA ( NWRK , SA , KRCPRT*NCSA , JCPA , INDCPA , 20 1 ) 

DO 10 I*1,NRSA 

NR=( IRPA- 1 ,*KRCPRT+I 

DO 10 d*1 .NCSA 

NCa(JCPA-1 )*KRCPRT+d 

Z(NR )=Z(NR )+SA( I ,d)*B(NC) 

10 CONTINUE 
20 CONTINUE 

RESTORE MASTER INDEX ON NWRK 


C 

999 


CALL STINDX ( NWRK , INDWRK , 100 ) 
RETURN 

CALL ZZB0MB( 6HZMULTC , NERROR ) 
END 


POOR QUALiTV 
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V*********************************** 


* 

* 
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ZMULTDD 


* 

* 

* 


************************************ 
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SUBROUTINE ZMULTDD (MA.D.NCD.MZ) 

COMMON /LZWRKF/ NWRK, INDWRK( 100) , MWRKSPl 10) 

COMMON / LZ 1 / MHA (10), INDRPA (201 ) , INDCPA (201) ,SA(30,30) 

COMMON / LZ2 / MHZ ( 10 ) , INDRPZ ( 20 1 ) , INDCPZ ( 201 ) , SZ ( 30 , 30 ) 
DIMENSION D ( 1 ) 

DATA KRCPRT/30/ 

HYBRID PARTITION-LOGIC, DENSE-LOGIC MATRIX MULTI PICATION 
ROUTINE. (A) * (D) = (Z) 

WHERE, MATRIX (A) IS A PARTITION-LOGIC MATRIX, 

MATRIX (D).IS A DIAGONAL MATRIX REPRESENTED AS A DENSE 
COLUMN VECTOR, 

AND. MATRIX (Z) IS THE PARTITION-LOGIC RESUIT OF THE 
MULTIPICATION. 

DEVELOPED BY TG SHANAHAN, JAN 1982. 

SUBROUTINE ARGUMENTS 


MA = INPUT MATRIX (A) IN PARTITION-LOGIC. 

D = INPUT DENSE VECTOR WHICH CONTAINS THE DIAGONAL ELEMENTS 
OF DIAGONAL MATRIX (D) . 

NCD = NUMBER OF ROWS AND COLUMNS IN MATRIX (D). 

MZ = OUTPUT MATRIX (Z) IN PART I T ION- LOGIC . 

COMMON EXPLANATIONS 


/LZWRKF/ = SHOULD HAVE BEEN INITIALIZED WITH SUBROUTINE ZWRKFL . 
DATA COMES IN AND GOES OUT. 

/LZ 1 / = WORK SPACE. NO DATA COMES IN OR GOES OUT. 

/ LZ2/ = WORK SPACE. NO DATA COMES IN OR GOES OUT. 

NERROR EXPLANATIONS 


1 = NUMBER OF MATRICES ON WORK FILE (NWRK) EXCEEDS LIMIT. 

2 = MATRICES (A) AND ID) ARE NOT COMPATABLE . 


FIND POSITION OF MATRIX <Z> IN INDWRK 


IFIMZ.GE. i -AND.MZ.LE.99) GO TO 5 
DO 2 M2 =1,99 

I F ( INDWRK ( MZ+ 1 ) . EQ . 0 > GO TO 5 
2 CONTINUE 

NERROR= 1 
GO TO 999 


READ IN MATRIX (A) HEADER 


5 CALL READRAINWRK. MHA, 10. MA, INDWRK. 1001 
NRA=MHAI 1 ) 

NCA=MHA ( 2 ) 
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NRPA=MHA ( 3 ) 

NCPA=MHA ( 4 ) 

NRLA=MHA ( 5 ) 

NCLA=MHA ( 6 ) 

IF (NCD.EQ.NCA) GO TO 7 

NERR0R=2 
GO TO 999 

FORM MATRIX (Z> HEADER 


7 DO 10 1=1,6 
10 MHZ ( I ) =MHA ( I ) 

DO 20 1=7,10 
20 MHZ ( I ) =0 

MULTIPLY MATRICES (A) AND ( D ) 


CALL RE ADR A ( NWRK , INDR PA ,201 , 1 ,MHA(9) .2) 

CALL ZERO! INDRPZ, 1 ,201 , 1 ) 

NRSA=KRCPRT 

DO 60 IRPA= 1 , NRPA 

IF (NRPA.EQ. IRPA) NRSA=NRLA 

CALL READRA ( NWRK, INDCPA, 201 , IRPA, INDRPA, 201 ) 
CALL ZEROdNDCPZ, 1,201,1) 

NCSA=KRCPRT 

NEL=NCSA*KRCPRT 

DO 50 JCPA= 1 , NCPA 

IF ( INDCPA ( JCPA+ 1 ) . EQ . 0 ) GO TO 50 

IF(JCPA.NE.NCPA) GO TO 30 

NCSA=NCLA 

NEL=NCSA*KRCPRT 

30 CALL READRA(NWRK,SA,NEL,dCPA, INDCPA, 201 ) 

DO 40 d= 1 , NCSA 

NC= ( dCPA- 1 ) *KRCPRT+d 

DO 40 1=1, NRSA 

SZ ( I , J ) =SA ( I , d ) *D ( NC ) 

40 CONTINUE 

CALL WRI TRA ( NWRK , SZ , NEL , dCPA , INDCPZ ,201 ) 

50 CONTINUE 

CALL WRI TRA (NWRK, INDCPZ, 201 , IRPA , INDRPZ ,201) 
SO CONTINUE 

CALL WRI TRA (NWRK, INDRPZ, 201 , 1 , MHZ ( 9 ) ,2) 

CALL WRI TRA (NWRK, MHZ, 1 0 , MZ , INDWRK , 100) 

RESTORE MASTER INDEX ON NWRK 


CALL STINDX ( NWRK , INDWRK , 100 ) 
C 

RETURN 

C 

999 CALL ZZBOMB(6HZMUlDD,NERROR ) 
END 
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SUBROUTINE ZTERP (MA.MAI ,MB,MBI ' 

COMMON /LZWRKF/ NWRK , INDWRK (100), MWRKSP (10) 

COMMON / LZ 1 / MHA (10), I NDRP A (201 ) , INDCPA I 201) , SA ( 30 , 30 ) 

COMMON / LZ2/ MHAI ( 10 ) , INDRPAI ( 201 ) , INDCPA I ( 20 1 > , SAI I 30 , 30 ) 

COMMON / LZ3/ MHB ( 1 0 ) , INDRPB ( 201 ) , INDCPB ( 20 1 ) , SB ( 30 , 30 ) 

COMMON / LZ4/ MHB I ( 10 ) , INDRPB I (201 ) , INDCPB I ( 201 ), SB 2 1 30, 30) 

COMMON / LZ5/ MHV ( 10 ) , INDCPSV 1201), INDCPMV (201 ) , MV (2,30) SVI840) 

DIMENSION SBOLD ( 30 ) , IPART 1(2) 

DATA KRCPRT /30/ 

LINEAR INTERPOLATION SUBROUTINE IN PARTITION-LOGIC. 

DEVELOPED BY TG SHANAHaN, JULY 1982. 

SUBROUTINE ARGUMENTS 


MA - INPUT MATRIX <A) CONTAINING THE ORIGINAL /.-COORDINATES 
FOR THE ROWS OF (R). SIZE (1.NTP). 

MAI - INPUT MATRIX (All CONTAINING THE X-COORPINATES FOR THE 
INTERPOLATE VALUFS. SIZE l 1 , NT ) . 

MB - INPUT MATRIX IB) CONTAINING THE Y-COORDINATES TO PE 
TO BE INTERPOLATED. SIZE (NF.NTPI. 

MBI - OUTPUT MATRIX (BI) CONTAINING THE INTERPOLATED 

Y-COORDINATES. EACH COLUMN OF I MB) COORESPONCS TO THE 
COLUMN ELEMENT OF (AI). SIZE (NF.NT). 

COMMON EXPLANATIONS 


/LZWRKF / - SHOULD HAVE BEEN INITIALIZED IN SUBROUTINE ZWRKFl. 
DATA COMES IN AND GOES OUT. 

/ LZ 1 / , / LZ2 / , / LZ 3 / , LZ4/, AND / LZ5 / ARE ALL WORK SPACES. 

NO DATA COMES IN OR GOES OUT OF THESE COMMON BLOCKS. 

NERROR EXPLANATIONS 


1 = MATRIX (A) IS NOT A ROW VECTOR. 

2 = MATRIX I A I ) IS NOT A ROW VECTOR. 

3 = NUMBER OF COLUMNS OF MATRIX (A) IS NOT EQUAL TO THE NUMBER 

OF COLUMNS IN MATRIX (B - . 

4 = NUMBER OF MATRICES ON WORK FILE lNW r 'l EXCEEDS LIMIT. 

5 = MATRIX (A) IS NOT IN INCREASING OR. *.R. 

6 = MATRIX I A I ) IS NOT IN INCREASING ORDER. 

7 = TRYING TO REACH OUT OF RANGE OF MATRIX IB) 

NOTE - ZERO PARTITIONS OF (A) AND (AI) ARE NOT ALLOWED. 

READ IN MATRIX ( A i HEADER 
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CALL READRA (NWRK.MHA, 10.MA, INDWRK, 100) 
NRA=MHA( 1 ) 

NCA=MHA( 2 ) 

NRPAsMHAl 3 ) 

NCPA=MHA I 4 ) 

NRLA=MHA ( 5 ) 

NCLA=MHA ( 6 ) 

IF ( NRA .NE. 1 ) 

READ IN MATRIX (All HEADER 


CALL READRA (NWRK.MHA l , 10. MAI , INDWRK. 100) 
NRAI=MHAI ( 1 ) 

N^AI=MHAI (2 ) 

NRPAI=MHAI ( 3 ) 

NCPAI =MHAI ( 4 ) 

NRLAI=MHAI ( 5 ) 

NCLAI=MHAI (6! 

IF ( NRAI .NE. 1) 

READ IN MATRIX (B) HEADER 


CALL READRA (NWRK.MHB, 10. MB. INDWRK. 100) 
NRB=MHB ( 1 ) 

NCB=MHB(2t 
NRPB=MHB ( 3 ) 

NCPB=MHB(4) 

NRLB=MHB(5) 

NCLB=MHB( 6 ) 

IF INCA .NE. NCB ) 

LOCATE MATRIX (BI> AND FORM HEADER 


DO 10 MB 1 = 1 ,99 

IF ( INDWRK ( MBI + 1 I .EQ. 0) GO TO 20 

10 CONTINUE 


2C MHBI I 1 )=NRB 
MHBI I 2 I =NCAI 
MHBI I 3 ) =NR?8 
MHBI I 4)=NCPA1 
MHBI I 5 1 =NRLB 
MHBI I6)=NCLAI 

DO 25 1=7.10 
MHBI 1 1 1=0 
25 CONTINUE 

READ IN INDICES OF ROW PARTITIONS 


CALL READRA I NWRK . INDRPA . 20 1 . 1 . MHA I 9 > . 2 I 
CALL READRA I NWRK . INDRPAI . 20 1 . 1 . MHAI ( 9 ! . 2 ) 
CALL READRA I NWRK , I NDRPB . 20 1 . 1 . MHS ( 9 > . 2 > 

CALL ZERO I INDRPBI 1.201. 1 ) 

CALL ZERO l INDCPSV . 1.201. 1 > 

CALL ZERO i INDCPMV. 1,201. 1 i 
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NERROR=1 
GO .0 999 


NERR0R=2 
GO TO 999 


NERROR=3 
GO TO 999 


NERR0R=4 
GO TO 999 
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FORM VECTORS (MV) AND ( SV ) WHICH TELL WHICH POINTS THE INTERPOLATED 
POINTS LIE BETWEEN AND THEIR RELATIVE WEIGHTING 


C 


C 

C 

C 


C 

C 


C 

C 

C 

c 


c 


c 


c 

c 


JA= 1 
JCPA=1 
IRPAs 1 
NCSA=KRCPRT 

IF (NCPA .EQ. 1) NCSA=NCLA 
NELPA=KRCPRT*NCSA 


ort!C:?'.v- r.'.-c-s & 

OF POOR QUALITY 


CALL READRA (NWRK, INDCPA, 20i , 1 . INDRPA.201 ) 
CALL READRA (NWRK, INDCPAI ,201 , 1 , 1NDRPAI ,201 ) 
CALL READRA (NWRK, SA, NELPA, JCPA, INDCPA, 201 ) 


NERROR=5 

DO 30 1=2, NCSA 

IF (SAM, I) .LE. SA (1,1-1)) GO TO 999 

30 CONTINUE 


NCSAI =KRCPRT 
NELPAI=KRCPRT*NCSAi 


DO 200 JCPAI= 1 .NCPAI 

IF iJCPAI .NE. NCPAI) GO TO 40 
NCSAI =NCLAI 
NELPAI=NCSAI*KRCPRT 

40 CALL READRA ( NWRK , SAI , NELPAI , JCPAI , INDCPAI , 20 1 ) 

NERR0R=6 

DO 45 1=2, NCSAI 

IF ( SAI ( 1,1) .LE SAI ( 1 , 1 - 1 ) ) GO TO 999 

45 CONTINUE 


DO 100 JAI = 1 , NCSAI 

50 IF (SA(l.dA) .GT. SAIM.JAl)/ GO TO 70 
JA=JA+1 

IF (JA .LE. NCSA) GO TO 50 

IF (JCPA .GE. NCPA) GO TO 60 
J A = 1 

JCPA = JCPA+ 1 
SAOLD=SA( 1 .NCSA) 

IF (JCPA M E . NCPA; GO TO 55 

NCSA=NCLA 

NE PA=NCSA*KRCPRT 

55 CALL READRA ( NWRK , SA , NEL D A , JCPA , INDCPA .201) 

NERROR=5 

DO 52 1=2, NCSA 

IF (SAI 1 , I ) .LE. SAI 1 , 1-1 ) i GC TO 999 

52 CONTINUE 

IF (SAI 1 , 1 ) .LE. SAOLDI GO TO 999 

GO TO 50 


60 MV * 1 , JAI >=NCPA 


164 



oooo 


MV( 2 , JAI ) =NCLA 

JA=NCLA Oii.u,i‘.A« 

IF ( NCLA .EQ. 1) GO TO 80 OF POOR QUALITY 

GO TO 90 
C 

70 MV ( 1 , JAI IsJCPA 
MV I 2 , JAI) = JA 

IF (JA .NE. 1) GO TO 90 
C 

IF (JCPA .EQ. D GO TO 85 
C 

80 SV ( JAI ) = ( SAI ( 1 , JAI ) -SAOLD ) / ( SA( 1 , JA > -SAOLD ) 

GO TO 100 
C 

85 JA=2 

MV ( 2 , JAI ) =2 
C 

90 SV ( JAI ) s ( SAI ( 1 , JAI ) -SA( 1 , JA- 1 ) ) / ( $A( 1 , JA ) -SA( 1 , JA - 1 ) ) 
C 

100 CONTINUE 
C 

CALL WRITRA (NWRK.MV,2*NCSAI , JCPAI . INDCPMV.201 ) 

CALL WRITRA ( NWRK . SV . NCSAI . JCPAI , INDCPSV . 20 1 ) 

C 

200 CONTINUE 


INTERPOLATE THE DATA 


CALL READRA ( NWRK . I PART 1 . 1 . 1 , INDCPMV . 20 1 ) 

IF ( I PART 1(2) .EQ. 1) I PART 1 ( 1 )=IPART1 (1 )- 1 

C 

NRSB=KRCPPT 

r- 

DO 400 IRP3= 1 , NRPB 
C 

IF ( IRP8 .EQ. NRPB) NRSB = NRLB 

C 

CALL READRA (NWRK. INDCPB. 201 .IRPB.INDRPB. 201 ) 

C 

JCPB = I PART 1 ( 1 ) 
wrc:R-K PTPRT 

IF ( NCPB .EQ. I PART 1(1)) NCSB = NCLB 

NELPB=NCSB*KRCPRT 
C 

IF ' INDCPB < JCPB+1 ) .NE. 0) GO TO 205 
CALL ZERO ! SB , NRSB . NCSB . KRCPRT ’> 

GO TO 207 
C 

205 CALL READRA i NWRK . SB . NELPB . JCPB . INDCPB . 20 1 ) 

C 

207 NCSV=KRCPRT 

NELPBI =NCSV*KRCPRT 

CALL ZERO ( INDCPB! ,1.201.1) 

C 

DO 350 JCPV=1 , NCPA I 
C 

IF ( JCPV .NE. NCPA I i GO TO 210 
C 


C 


NCSV=NCLA I 
NELPBI =NCSV*KRCPRT 
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210 CALL READRA (NWRK.SV.NCSV, dCPV, INDCPSV.201 ) 

CALL READRA (NWRK,MV,2*NCSV , JCPV, INDCPMV ,2u1 ) 

C 

DO 300 d= 1 , NCSV 
C 

215 IF IMV(l.d) .EQ. JCPB ) GO TO 260 
C 

DO 220 1*1, NRSB 
SBOLD l I ) = SB ( I , NCSB ) 

220 CONTINUE 
C 

dCPB*dCPB+1 

IF < JCPB .GT. NCPBI 
C 

IF I JCPB .NE. NCPB) GO TO 230 
NCSB*NCLB 
NELPB*NCSB*KRCPRT 
C 

230 IF tINDCPBIdCPB+1) .NE. 01 GO TO 240 
CALL ZERO ( SB , NRSB , NCSB , KRCPRT 1 
GO TO 215 
C 

240 CALL READRA (NWRK. SB. NELPB.dCPB. INDCPB. 201 ) 

GO TO 215 
C . 

260 LV=MV (2 . J ) 

C 

IF ( LV .EQ. 1 ) GO TO 285 
C 

LV1*LV-1 

C 

DO 280 1=1, NRSB 

SBI i I .d 1 *SB( I ,LV1 ) + < SBI I . LV ) -SB< I , LV 1 M *SV( d I 

280 CONTINUE 
C 

GO TO 300 
C 

285 DO 290 1*1 .NRSB 

SBI( I .dUSBOLDl I )♦ ( SB< I . LV ) -SBOLD ( 1 1 >* ) 

290 CONTINUE 
C 

300 CONTINUE 
C 

CALL WRITRA 1 NWRK . SB I . NELPB I . dCPV . INDCPB 1 . 20 1 > 

C 

350 CONTINUE 
C 

CALL WRITRA I NWRK . INDCPB I . 20 1 . 1RPB . INDRP6 1 . 20 D 
C 

400 CONTINUE 
C 

CALL WRITRA t NWRK . I NDRPB I . 20 1 . 1 . MHB 1 1 9 I . 2 1 
CALL WRITRA (NWRK.MH6I . 10.M6I . INDWRK. 100' 

C 

C RESTORE MASTER INDEX ON NWRK 


CALL STINDX (NWRK. INDWRK. 100) 
RETURN 

999 CALL ZZBOMB (6HZTERP .NERROR) 



NERROR*7 
GO TO 999 
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* ZTERP1 * 

* * 
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SUBROUTINE ZTERPl (MA.MB.STARTT ,ENDT , DEL TAT . NTAPE ) 


COMMON 

/LSTART/ 

COMMON 

/LZWRKF/ 

COMMON 

/ LZ 1 / 

COMMON 

/ LZ2/ 

COMMON 

/LWORK 1/ 

DATA 

KRCP 

DATA 

BUF 


IRUNNO , IDATE , NPAGE , UNAME (3) , T 1 ( 12) ,T2( 12) 
NWRK , I NDWRK (100), MWRKSP (10) 

MHA( 10) ,INDRPA(201 ) ,INDCPA(201 ) ,SA(900) 

MHB ( 10) , INDRPB ( 20 1 ) . INDCPB( 201 ) .SB (30, 30) 

Z ( 600 ) , DB ( 3 1 ,600) 

r.KCDB / 30 , 600/ 

/- 1 . E50/ 


LINEAR INTERPOLATION SUBROUTINE IN PARTITION LOGIC. 
INTERPOLATES MATRIX (MB) TO EVENLY SPACED POINTS. 

THE INTERPOLATED ANSWERS FOR EACH NEW X-COORDINATE 
ARE WRITTEN ON NTAPE SEQUENTIALLY ALONG WITH THE NEW 
X-COORDINATE. INTERPOLATION SCHEME INVOLVES DISASSEMBLING 
A ROW PARTITION OF MATRIX (MB) AND CONVERTING THIS TO DENSE- 
LOGIC. IT IS THEREFORE SIZE LIMITED TO THE COLUMN DIMENSION 
SIZE OF (DB) IN COMMON BLOCK /LWORK1/. WHICH IS KCDB=600. 
NOTE THAT THIS IS NOT A PURE PARTITION-LOGIC SU3R0UTINE 
AND ITS SPACE REQUIREMENTS ARE LARGER THAN A PARTITION-LOGIC 
SUBROUTINE. 


SUBROUTINE ARGUMENTS 


MA - INPUT MATRIX (A) OF X-COORDINATES FOR THE ROWS OF 
MATRIX (B>. SIZE ( NRA ) . 

MB - INPUT MATRIX (B) OF Y-COORDINATES TO BE INTERPOLATED. 
SIZE (NRA.NCA). NCA IIS THE NUMBER OF DIFFERENT Y 
VECTORS TO BE INTERPOLATED . 

START! - STARTING POINT OF X-COORDINATES THAT MATRIX (B) IS 
ITERPOLATED TO. 

DELTAT - INCREMENT OF X-COORDINATE. 

ENDT - LAST X-COORDINATE FOR INTERPOLATION OF MATRIX (B). 

NTAPE - NUMBER OF SEQUENTIAL TAPE ON WHICH INTERPOLATED ANSWERS 
ARE WRITTEN. NTAPE ALSO INCLUDES A HEADER. 

COMMON EXPLANATIONS 


/LZSTART/ - SHOULD HAVE BEEN INITIALIZED IN SUBROUTINE START. 
DATA COMES IN ONLY. 

/LZWRKF / - SHOULD HAVE BEEN INITIALIZED IN SUBROUTINE ZWRKFL . 
DATA COMES IN AND GOES OUT. 

/ LZ 1 / - WORK SPACE. NO DATA COMES IN OR GOES OUT. 

/LZ2 ; - WORK SPACE. NO DATA COMES IN OR GOES OUT. 

/LWORK 1 / - WORK SPACE. NO DATA COMES IN OR GOES OUT. 

NERROR EXPLANATIONS 


1 = MATRIX IA> IS NOT A COLUMN VECTOR 

2 = MATRICES I A > AND ;B> DO NOT HAVE THE SAME ROW SIZE. 

3 = COLUMN SIZE OF IB) - THE NUMBER OF VECTORS TO BF 

INTERPOLATED - IS GREATER THAN KCNB . ORIGINAL KCNb=600. 
MORE VECTORS CAN BE USED BY REDIMENSIONING THE COLUMN SIZE 
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OF MATRIX (DB) AND CHANGING THE VALUE OF KCNB TO THIS NEW 
SIZE. 


FORM MATRIX (A) HEADER 


CALL READRA ( NWRK , MHA , 1 0 , MA , INDWRK ,201) 
NRA=MHA( 1 ) 

NCA=MHA( 2 ) 

NRPA=MHA( 3 ) 

NCPA=MHA ( 4 ) 

NRLA=MHA( 5 ) 

NCLA=MHA ( 6 ) 


GAi&.j.'L ?;.rs IS 

OF POOR QUALITY 


IF ( NCA .NE. 1) 


NERROR= 1 
GO TO 999 


FORM MATRIX <B) HEADER 


CALL READRA (NWRK.MHB, 10, MB, INDWRK ,201 ) 

NRB=MHB( 1 ) 

NCB=MHB( 2 ) 

NRPB-MHB<3) 

NCPB=MHB(4) 

NRLB=MHB ( 5 ) 

NCLB=MHB(6) 

NERR0R=2 

IF ( NRA .NE. NRB ) GO TO 999 

NERROR=3 

IF ( NCB .GT. KCDB ) GO TO 999 

T=STARTT 

STOPT =ENDT+DELTAT 

NTP= I STOPT-STARTT ) /DELTAT 

REWIND NTAPE 

WRITE ( NTAPE ) IRUNNO . IDATE , STARTT . ENDT , DELTAT , NCB . NTP . ( BUF , 1= 1 , 10 ) 

CALL READRA ( NWRK , INDRPA . 20 1 , 1 , MHA ( 9 ) , 2 ) 

CALL READRA (NWRK, INDRPB.201 , 1 ,MHB(9) ,2) 

IRPA= 1 
NRSA=KRCPRT 


READ IN A ROW PARTITION OF MATRICES (A) AND IB' 


20 niRPA .EO. NRPA) NRSA=NRLA 

CALL READRA ( NWRK , INDCPA , 20 1 , IRPA , INDRPA , 20 1 ) 

CALL READRA ( NWRK , SA ( 2 ), NRSA , 1 , INDCPA , 201 I 

CALL READRA ( NWRK . INDCPB , 20 1 , IRPA , INDRPB , 20 1 ) 

NCSB=KRCPRT 

NEL=NCSB*KRCPRT 

DO 60 JCPB= 1 . NCPB 

IF I JCPB.NE.NCPB) GO T 030 

NCSB=NCLB 

NEL=NCSB*KRCPRT 

30 IF ( INDCPB (JCPB+ 1 ) .NE. 0 > GO TO 40 
CALL ZERO ( SB , NRSA , NCSB . KRCPRT . KRCPRT ) 

GO TO 50 

40 CALL READRA • NWRK , SB . NEL . JCPB , INDCPB , 20 1 I 
C 

C ASSEMBLE THIS PARTITION OF ( B ) INTO ( DB > 
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c - 

50 DO 60 Jsl.NCSB 

NC= ( JCPB- 1 ) *KRCPRT+d ORIGINAL 13 

DO 60 1=1, NRSA OF POOR QUALITY 

DB( 1+1 ,NC)=SB( I ,J) 

60 CONTINUE 
C 

C FIND TIME POINTS TO INTERPOLATE BETWEEN 

C — - 

1 = 1 

80 IF (T .LE. $A( 1+1 ) ) GO TO 100 
1 = 1 + 1 

IF (I .LE. NRSA ) GO TO 80 
IF ( IRPA .EQ. NRPA ) GO TO 200 
C 

C WRITE THE LAST ROW ( DB ) INTO THE FIRST ROW 

C FOR INTERPOLATION BETWEEN ROW PARTITIONS 

C - - - - 

SA( 1 )=SA(NRSA+1 ) 

DO 90 d= 1 , NCB 

DB ( 1 ,d)=DB(NRSA+1 ,d) 

90 CONTINUE 
C 

I RPA= IRPA+ 1 
GO TO 20 
C 

100 IF (I .EQ. 1 .AND. IRPA .EQ. 1) GO TO 140 
C 

C NORMAL INTERPOLATION 

C 

DELT* ( T-SA( I ) ) / ( SA( 1+1 ) -SA ( I ) ) 

DO 120 d=1,NC3 

Z ( d ) =DB ( I , d ) +DELT* ( DB ( 1 + 1 , d ) - D B ( I ,d) ) 

120 CONTINUE 
GO TO 180 
C 

C EXTRAPOLATION PRCEEDING DATA POINTS 

C - - 

140 DELT = ( T-SAI 2 ) ) / ( SA I 3 ) -SA ( 2 ) ) 

DO 160 d= 1 , NCB 

Z ( d ) =DB ( 2 , d ) +DELT* ( DB ( 3 , d ) -DB ( 2 , d > ) 

160 CONTINUE 
C 

C WRITE TIME AND INTERPOLATED VALUES ONTO NT APE SEQUENTIALLY 

C - - - 

18C WRITE < NT APE ) T , ( Z I d ) . d= 1 . NCB ) , BUF 
C 

C CHECK TO SEE IF NEXT TIME POINT IS REQUIRED 

C - 

T=T+DELTAT 

IF (T .LE.STOPT) GO TO 80 
ENDFILE NTAPE 
RETURN 
C 

C EXTRAPOLA'iON AFTER DATA POINTS 


200 DELT=( T-SA(NRSA) ) / I SA I NRSA+ 1 > -SA ( NRSA ) ) 

DO 220 d=1,NCB 

Z ' d ) =DB( NRSA , d > +DELT* ( DB < NRSA+ 1 , d ) -DB 1 NRSA , J I ' 
220 CONTINUE 
C 

C WRITE EXTRAPOLATED VALUES ONTO NTAPE 

1 ' 



ooo 


c 

WRITE INTAPE) T , ( Z ( d ) , d= 1 , NCB ) , BUF 

CHECK TO SEE IF THE NEXT TIME POINT IS REQUIRED 


T=T+DELTAT 

IF (T.LE.STOPT) GO TO 200 
ENDF1LE NTAPl 
RETURN 
C 

999 CALL ZZBOMB (6HZTERP1 , NERROR) 
END 


P00R * Wwi 
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ORIGINAL PACi i‘3 

OF POOR QUALITY 


4c#**4c4c*******4c******4c**3t*4c************ic****** 

* 4c 

* ZT0SE02 * 

* * 
*****-«*************************************** 


SUBROUTINE ZT0SEQ2 (MA,MB,NTAPE) 

COMMON /LSTART/ IRUNNO , IDATE , NPAGE , UNAME ( 3 ) , T 1 ( 12 ) , T2 ( 12 ) 

COMMON /LZWRKF/ NWRK, INDWRM 100) ,MWRKSP( 10) 

COMMON / LZ 1 / MHA( 10) , I NDR P A (201 ) , I NDCP A (201 ) , SA ( 900 ) 

COMMON / LZ2/ MHB ( 10 ) , INDRPB ( 20 1 ) , INDCPB ( 201 ) , SB ( 30 , 30 ) 

COMMON /LWORK 1 / DA ( 600 ), DB( 600 , 30 ), FILLER ( 600 ) 

DATA KC /600/ 

DATA KRCPRT /30/ 

DATA BUF /-1.E50/ 

THIS SUBROUTINE TAKES TO MATRICES, MATCHES AN ELEMENT FROM 
COLUMN VECTOR (A) WITH A ROW OF MATRIX (B) AND WRITES THESE 
ELEMENTS OUT SEQUENTIALLY. THIS SUBROUTINE OPERATES BY 
DISASSEMBLING OUT A ROW PARTITION OF MATRIX (B) AND CONVERTING 
IT TO A DENSE-LOGIC MATRIX. IT IS THEREFORE LIMITED TO HANDLING 
MATRICES THAT HAVE A COLUMN DIMENSION SIZE SMALLER THAN THE 
DIMENSION OF (DB) WHICH WAS ORIGINALLY 600. 

DEVELOPED BY TG SHANAHAN, JULY 1982. 


SUBROUTINE ARGUMENTS 


MA = INPUT COLUMN MATRIX (A) GIVING THE X-COORDINATES THAT 
CORRESPOND TO THE ROWS OF MATRIX (B). SIZE (NTP.1). 
MB = INPUT MATRIX (B) CONTAINING THE Y-COORDINATES FOR 
EACH X-COORDINATE IN MATRIX (A). SIZE (NTP.NF). 

NTAPE = INPUT LOGICAL UNIT NUMBER OF THE SEQUENTIAL TAPE THAT 
THE DATA CONTAINED IN MATRICES (A) AND (B) IS TO BE 
WRITTEN. 

COMMON EXPLANATIONS 


/LSTART/ - SHOULD HAVE BEEN INITIALIZED IN SUBROUTINE START. 
DATA COMES IN. 

/LZWRKF/ - SHOULD HAVE BEEN INITIALIZED IN SUBROUTINE ZWRKFL . 
DATA COMES IN. 

/LZ 1 / - WORK SPACE. NO DATA COMES IN OR GOES OUT. 

/ L Z2 / - WORK SPACE. NO DATA COMES IN OR GOES OUT. 

/LWORK 1/ - WORK SPACE. NO DATA COMES IN OR GOES OUT. 

NF.RROR EXPLANATIONS 


1 = MATRIX (A) IS NOT A COLUMN VECTOR. 

2 = NUMBER OF ROWS IN MATRIX (A) IS NOT EQUAL TO THE NUMBER OF 

ROWS IN MATRIX < B > . 

3 = COLUMN SIZE OF MATRIX (B) IS TOO LARGE FOR THIS PROGRAM. 
NOTE - ZERO PARTITIONS ARE NOT ALLOWED IN MATRIX (A). 
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READ IN MATRIX (A) HEADER 


■l - ' 


OK POOH QUr. 



CALL READRA (NWRK.MHA, 10.MA, INDWRK, 100) 
NRAsMHAI 1 ) 

NCA=MHA(2 ) 

NRPA=MHA ( 3 ) 

NCPA=MHA ( 4 ) 

NRLA=MHA ( 5 ) 

NCPA=MHA(6) 

IF (NCA .NE. D 


NERR0R= 1 
GO TO 999 


READ IN MATRIX (B) HEADER 


CALL READRA I NWRK , MHB , 1 0 t MB , INDWRK , 1 00 ) 
NRB=MHB ( 1 ) 

NCB =MHB ( 2 ) 

NRPB=MHB( 3) 

NCPB=MHB ( 4 ) 

NRLB=MHB( 5 ) 

NCLB=MHB(6) 

IF ( NRB .NE. NRA) 

IF (NCB .GT. KC) 


NERROR=2 
GO TO 999 
NERR0R=3 
GO TO 999 


READ IN THE INDICES OF THE ROW PARTITIONS OF THE TWO MATRICES 


CALL READRA ( NWRK , INDRPA , 20 1 , 1 , MHA( 9 ) . 2 ) 
CALL READRA (NWRK , INDRPB.201 , 1 ,MHB(9) ,2) 

FORM THE HEADER FOR NTAPE 


CALL READRA (NWRK, INDCPA, 201 . 1 , INDRPA, 201 ) 

CALL READRA ( NWRK , AF IRST , 1 , 1 , INDCPA , 20 1 ) 

CALL READRA (NWRK, INDCPA, 201 ,NRPA, INDRPA, 201 ) 

CALL READRA ( NWRK , SA , NRLA , 1 , INDCPA , 20 1 ) 

ALAST=SA ( NRLA ) 

ADELTA= (ALAST-AFIRST)/( NRA - 1 ) 

REWIND NTAPE 

WRITE (NTAPE) IRUNNO , IDATE , AFIRST , ALAST , ADELT A , NCB , NRA , 
+ ( BUF ,1=1,10) 

WRITE DATA OUT ONTO NTAPE 


NRSA=KRCPRT 

C 

DO 100 IRPAsl.NRPA 
C 

IF ( IRPA .EQ. NRPA) NRSA=NRLA 

C 

CALL READRA ( NWRK , INDCPA , 20 1 , IRPA , INDRPA , 20 1 ) 

CALL READRA ( NWRK , SA , NRSA , 1 , INDCPA , 20 1 ) 

C 

CALL READRA ( NWRK , INDCPB , 201 , IRPA , INDRPB , 20 U 
C 

NC$B=KRCPRT 

NELPB=NC$B*KRCPP7 

C 


DO 50 JCPB= 1 , NCPB 
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c 


IF ( JCPB .NE. NCPB ) 

NCSBsNCLB 

NELPB=NCSB*KRCPRT 


GO TO 10 


ORiGiiML fa,-; ; .j 

OF POOR QUALITY 


C 

10 IF ( 1NDCPB ( JCPB+1 ) .NE. 0) GO TO 20 
CALL ZERO i SB , KRCPRT ,NCSB , KRCPRT ) 

GO TO 25 
C 

20 CALL READRA ( NWRK , SB , NELPB , JCPB , I NDCPB ,201 ) 
C 

25 JPOS= ( JCPB- 1 )*KRCPRT 
DO 45 I*1,NRSA 
DO 45 Jsl.NCSB 
DB ( JPOS+d , I ) =SB( I , J ) 

45 CONTINUE 
C 

50 CONTINUE 
C 

DO 80 I«1 ,NRSA 

WRITE ( NTAPE ) SA( I ) , ( DB( d , I ) , J= 1 , NCB ) , BUF 

80 CONTINUE 
C 

100 CONTINUE 
C 

RETURN 

C 

999 CALL ZZBOMB ( 6HZTOSE2 , NERROR ) 

C 

END 
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**************************************** 
* * 

* ZT0SEQ3 * 

★ * 

**************************************** 


>a- 

OF P0° R 


L ^ 


quaut^ 


! 


SUBROUTINE ZT0SEQ3 (MA.MB .NTAPE 1 

COMMON /LSTART / IRUNNO, IDATE , NPAGE , UNAME ( 3 ) , TITLE 1( 12) , T I TLE2 { 1 2 ) 
COMMON /LZWRKF/ NWRK , INDWRK ( 100 ) .MWRKSP ( 10 ) 

COMMON /L 21/ MHA( 10) , INDRPA ( 20 1 ), INDCPA(201 ) ,SA(900) 

COMMON /LZ2/ MHB ( 10 ) , INDRPB ( 20 1 ) , INDCPB ( 201 ) , SB ( 30 , 30 ) 

COMMON /LZ3/ MHZ (10), INDCPZ (201 ) , INDRZ (201 ) , Z ( 900 ) 

COMMON /LWORK 1 / ZA ( 6000 ) , F I LLER ( 1 3200 > 

DATA KRCPRT /30/ 

DATA BUF /-1.E50/ 

THIS SUBROUTINE MATCHES AN ELEMENT OF COLUMN VECTOR (A) AND 
A ROW OF MATRIX (B) AND WRITES THEM OUT TOGETHER SEQUENTIALLY 
ON NTAPE. 


THE FORM OF NTAPE IS AS FOLLOWS : 

HEADER - CONTAINING RUNNO, DATE, ETC. 

THE DATA - A ( 1 ) , B( 1 , 1 ) , B< 1 ,2) , B( 1 ,3) 
A ( 2 ) , BI2.1I, 6(2,2) , B ( 2 , 3 ) 


B ( 1 , NCB ) , 
B ( 2 , NCB ) , 


A ( NR A ) ! B( NRA , 1 ) i B ( NR A , 2 ) ! B ( NR A , 3 ) , . 


B(NRA.NCB) 


DEVELOPED BY TG SHANAHAN, JULY 1982. 


SUBROUTINE ARGUMENTS 


VA r INPUT MATRIX (A) WHICH CONTAINS THE X-COOKDINATES THAT 
CORRESPOND TO THE ROWS OF Y-COORDINATES IN MATRIX (B). 
SIZE (NRA.1I. 

MB = INPUT MATRIX (B) WHICH CONTAINS THE Y-COORDINATES. 

EACH ROW OF MATRIX (B) CORRESPONDS TO AN ELEMENT OF 
MATRIX (A). SIZE (NRA.NCB). 

NTAPE = INPUT LOGICAL UNIT NUMBER TO WHICH THE DATA WILL BE 
WRITTEN. 

COMMON EXPLANATIONS 


/LSTART/ SHOULD HAVE BEEN INITIALIZED IN SUBROUTINE START. 
DATA COMES T N ONLY. 

/LZWRKF/ SHOULD HAVE BEEN INITIALIZED IN SUBROUTINE ZWRKFL . 
DATA COMES IN ONLY. 

/ LZ 1 / WORK SPACE. DATA COMES IN AND GOES OUT. 

/ LZ2 / WORK SPACE. DATA COMES IN AND GOES OUT. 

/ LZ 3 / WORK SPACE. DATA COMES IN AND GOES OUT. 

NERROR EXPLANATIONS 


1 = MATRIX (A) IS NOT A COLUMN VECTOR. 

2 = NUMBER OF ROWS OF MATRIX (A) DOES NOT EQUAL THE NUMBER 

OF ROWS OF MATRIX iB) . 
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NOTE - ZERO PARTITIONS OF MATRRIX { A> ARE NOT ALLOWED 


READ IN MATRIX (A) HEADER 


CALL READRA (NWRK.MHA, 10.MA, INDWRK, 100) 

NRA=MHA ( 1 ) 

NCA=MHA( 2 ) 

NRPA=MHA ( 3 ) 

NCPA=MHA<4) 

NRLA=MHA ( 5 ) 

NCLA=MHA 1 6 ) 

NEPR0R= 1 

IF (NCA .NE. 1 > GO TO 999 

READ IN MATRIX (3) HEADER 


CALL READRA (NWRK.MHB, 10, MS, INDWRK, 100) 
NRB=MHB ( 1 ) 

NCB=MHB( 2 ) 

NRP3=MHB ( 3 ) 

NCPB=MHB ( 4 ) 

NRLB=MHB( 5 ) 

NCLB=MHB(6) 

IF ( NRB .NE. NRA ) 

CALL READRA ( NWRK , INDRPA ,201,1, MHA ( 9 ) ,2) 
CALL READRA ( NWRK , INDRPB , 201 , 1 ,MHB( 9 ) , 2 ) 

DETERMINE THE FIRST AND LAST VALUE OF (A) 


CALL READRA ( NWRK , INDCPA , 201 , 1 , INDRPA , 201 ) 
CalL RE An RA (NWRK, AFIRST, 1 , 1 , INDCPA, 201 ) 

CALL READRA (NWRK, INDCPA, 201 ,NRPA, INDRPA, 201 ) 
CALL READRA ( NWRK , SA , NRLA , 1 , INDCPA , 20 1 ) 

alast=sa<nrla; 

ADF-LTAs ( ALAST-AFIRST ) / ( NRB- 1 ) 

WRITE HEADER ON NTAPE 


REWIND NTAPE 

WRITE (NTAPE) IRUNNO, IDATE , AFIRST , ALAST . ADELTA , NCB , NRB . 
+ ( BUF ,1 = 1,10 

r 

C WRITE DATA ON NTAPE 

C 

NRS3=KKCPRT 

c 

DO 500 lkPB= 1 , NRPE 
C 

IF ( IRPB . EO. NRPBi NRSB=NRLB 

CALL READRA ( NWRK , INDCPA , 20 1 . IRPS , INDRPA , 20 1 ) 

CAL- RF.ADRA ( NWRK . SA . NRSB , 1 , INDCPA , 20 1 ) 

CALL READRA (NWRK, INDCPB, 201 , IRPB, INDRPB, 201 ) 

C 

CALL ZERO ( INDCPZ. 1 .201 . 1 > 

C 


NERR0R=2 
GO TO 999 



NCSBsKRCPRT 
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c 

c 


c 


40 


C 


50 

60 


240 

250 

C 

C 

300 

C 


c 


350 

C 

C 

400 

C 

500 


NELPB=NCSB*KRCPRT 


DO 30C dCPB=1 ,NCPB 

IF I dCPB .NE. NCPB) GO TO 40 

NCSBsNCLB 

NELPB=NCSB*KRCPRT 


ORIGINAL PAGE IS 
Cr POOR QUALITY 


IF ( INDCPBIJCPB+1 ) .NE. O' GC TO 50 
CALL ZERO (SB.NRSB.NCSB.KRCPRT) 

GO TO 60 


CALL READRA (NWRK, SB, NELPB, dCPB, INDCPB, 201 ) 
CALL ZERO (INDRZ, 1,31,1) 

DO 250 1=1, NRSB 
DO 240 d = 1 , NCSB 
ZA(d)=SB(I ,d) 

CONTINUF 

CALL WRITRA ( NWRK , ZA , NCSB , I , INDRZ ,31) 
CONTINUE 


CALL WRITRA (NWRK, INDR7.31 ,dCPB, INDCPZ.201 ) 

CONTINUE 

DO 400 Is 1 .NRSB 
NCSB ^KRCPRT 

DO 350 dCPB= 1 , NCPB 

IF (dCPB .EQ. NCPB) NCSB=NCLB 

dPOS= ( dCPB- 1 ) *KRCPRT+ 1 

CALL READRA ( NWRK , INDRZ , 3 1 , dCHB , INDCPZ , 20 1 ) 
CALL READRA ( NWRK , ZA ( dPOS ) , NCSB , I , INDRZ . 3 1 ) 
CONTINUE 

WRITE (NTAPE) SA( I ) , (ZA< d) ,d=1 , NCB ) ,BUF 
CONTINUE 


CONTINUE 


RESTORE MASTER INDEX ON NWRK 


CALL STINDX ( NWRK , INDW! K , 100 ) 
RETURN 
C 

999 CALL ZZBOMB i 6HZTOSEQ , NERROR ) 
C 
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